Re^2: Wow

[songahji]

I am on windows NT, please try

@_ = map { [ $!++ => $_ ^ $/ ] } split $╛ => "\@\x7Fy~*kde~box*Z
+oxf*Bkiaox";
$\ = "\r";
$| = ++$*;
do { ( $# => $= ) = ( rand @_ => rand @_ ); @_[ $#, $= ] = @_[ $=, $# 
+] }
  for ( $* .. @_ );
for $: ( $| .. @_ - $| ) {
    for ( $| .. @_ - $: ) {
        @_[ $_ - $|, $_ ] = @_[ $_ => $_ - $* ]
          if $_[$_][ $&#9553; ] < $_[ $_ - $* ][$&#9566;];
        print +map { $_->[$|] } @_;
        select $à, $â, $ç, "$[.$|";
    }
}
print $/

I think the chars don't paste correctly to the form, check mine:Download here