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