$^W=0;no strict;
s/.*/!2 14r01yedk18cgaghxi01xlxr14eqpv15ixrexhytxq01oqnabiwtxsvuxjx/;
(undef,$v,$u)=split(//);($r=$_)=~s|[a-z]||g;
foreach($r=~/\d{$v}/g){$s.=chr('1'.$_);}
eval"\$_=$s\$_;s\$i\$$u\$g";print
if(s/[0-9bdfgmqvw-z]|([acehjklnoprstu])/$1/g&&s/\s!$/!\n/);