perl -ne 'print' /path/to/file
cat /path/to/file | perl -ne 'print'