$^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/);
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |