#!perl -p $\=$_