#!perl -pl
$_ x=5