in reply to VVP:Perl oneliners for Unix commands
This should do the trick...
___ Simon Flack ($code or die)perl -e 'print $_,$/ for (<Q.PACES*>)'
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;
In Section
Seekers of Perl Wisdom