#!perl -pl
$\=1^chop