$|++;@_=map{chr(ord($_)-$|)}split//,"Kvtu!bopuifs!Qfsm!Ibdlfs-";$\="\r";@a=qw(< ^ > v);$"="_"x25;until($"!~m~_~){$o=int(rand 28)+65;next if$s{$o}++;$o==91?$o=44 :($o==92?$o=32:0);$g=chr$o;for(0..24){if($_[$_]=~m)$g)i){for$m(@a,$_[$_]){substr $",$_,$|,$m;print$";select undef,undef,undef,0.1}}}print$"}print$/