perl -swe 'while () {print "$_"}'