RosettaCodeData/Task/String-prepend/Perl/string-prepend.pl

my $str = 'bar';
substr $str, 0, 0, 'Foo';
print $str;