#!perl -pl
$_*=1