Select Code to Download

@foos = split(/(?=foo)/, 'foo' x 4);
$foos[1] = 'bar';
...
    $_ .= $elem;
}
print;

$_ = 'foo' x 4;
for(map { ++$i == 2 ? 'bar' : $_ } split(/(?=foo/, $_))
...
    $result .= $_;
}
print $result;