Select Code to Download

my @foo = split //, $foo;
$foo = shift(@foo) . q{(.*?)} . join q{\2}, @foo;
...
while ( my $line = <FH> ) {
    s/($foo)/$stuff1$1$stuff2/g;
}