my $foo = 'foofoofoo';
print map {s/foo/bar/g; $_} ($foo);