perl -e'print map { scalar reverse } reverse <>' #or perl -e'print scalar reverse for reverse <>' perlbug.txt