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