#!perl -p $_.=$_