#!/usr/local/bin/perl

$string = "Here is a sample character string";
substr($string, 0, 4) = "This";
substr($string, 8, 1) = "the";
substr($string, 19) = "string";
substr($string, -1, 1) = "g.";
substr($string, 0, 0) = "Behold! ";
print ("$string\n");
