@l = ( "a", "b", "c" );
@m = map {s/a/z/} grep /a/, @l;
print @l;