Select Code to Download

#!/usr/bin/perl -w

...
my $n=1;
$string =~ s/^(($pattern){$n})$pattern/$1$better/;
print "$string\n";

atl@companion:~/perl/s > one.pl 
foofoofoofoo
foobarfoofoo