#!perl -npl $\=''