my $text = "the quick brown fox likes jumping";
my $pos1 = index ($text, "fox");
my $length = 3;

substr( $text, $pos1, $length, "aligator");

print $text,"\n";