#!perl -pl
$_=8-2*y;27bg;;>>y;18ah;