#!perl -pl
$_=y;0689;;+y;8;