Help for this page

Select Code to Download

Select or download this

@l = ( "a", "b", "c" );
$_ = "z" for grep /a/, @l;
print @l;