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