#!perl -p print