#!perl -pl
$_=1&$$.1097>>$.