#!perl -p
$_ x=2