Select Code to Download

@l = qw( a b c );

...
@m =  grep { /a/ and $_ = 'z' } @l;

print @l;

/a/ and $_ = 'z' for @l;