s/\b|\d/$&+1/ge,$_=!/2/||" $`
$_
 $`"for($_)x<>;print