#!perl -pl
$_=eval"y/a-z/$_/until\$$_++*/$_/"