#!perl -pl
$_=1&y;1x;