>perl -le "$_='abc';@_=qw(1 2 3);$n=split//;print for @_"
a
b
c