#!perl -pl
$_=8-y;bg27;;*2>>y;ah18;