perl -wle '$n="";$f="abc";$n=split//,$f;print for @_'