perl -wle '$_="n";{++$_;y/a/o/;($s=$_)=~y/o-z/0-9#*/;print$s;redo}'