>perl -le"@a = qw( a b c d ); @b = grep { push(@a,'!') if !$i++; 1 } @a; print @b" abcd