@l=split??,q?Kvtu bopuifs Qfsm ibdlfs.?;while(!$s){for($s=0;$s<
@l;$s++){if(!$m[$s]){$y=$c[$s]=chr int rand(92)+28;$y=~
y?A-Za-z?B-ZAb-za?;$m[$s]=$l[$s]eq$y?$i:0}}print++$i,qq?\t?,@c,$/;
$s=$_?$s:0for@m}