sub ::{ ;
        my $i=$^;
        ;
        [split /#/, join $`, map {$i^=$_} split//,pop @_ ]
      }

##</code><code>##

%_ = map { my $z = (($_|=$^O)?$_:::($_));      
           $_, sub {
           	
           	     while (pop) {
           	     	my $x = unpack 'V',$_ ;
           	     	push @| , ($x > $_ ? $x : $_ )
           	     }
           	     print for @|
           	   }
          } 1..1024;
;

##</code><code>##

sub _ {
	 +(@;=>@:) = map {[split//]} @_;
	 for (1..9) {
	 	push @: , join $&, map { shift @$_} @;
	 }
	 @:
}

##</code><code>##

 
join ' ', @{[_(qw(oepgnf rhnuar nfarqr gu))]}[2,$?,3,$|,@;,5]

##</code><code>##

($;,$:,$,,$\,$^,$==>$~,$.,$})=

##</code><code>##

map{sub {
        	        my $i=$!;
                       join $&, map {my $o = $i;
                                        $i = $_;
                                        $o^$_;
                                    }
                                split //,shift
                      };        
                      y;a-z;n-za-m;;$_;
                  }
                  @$_

##</code><code>##

([q"Ia Sbivrg ",
   "rf lbh",
   "Rhffvn, $: $~"
 ],
 ["Ayy lbhe $~",
  " ner orybat gb hf",
  "rq $:"
 ],
 ["$; ornh",
  "rq $:",
  "jhys pyhfgre bs $~"
 ],
 ["$|. We".'v'."gr $~","$/3. Pebsvg",
  "r".qq-q-.' '.$:.".$/$=. ???"
 ],
 ["Tur arkg "."$: $~"=>"ef $} vg"." rneyl",q"vba jvyy ".'or'.qq' $^ fbba, ohg $.$,'
 ]    
)

##</code><code>##

@%= map {
	     my $die =$_;
         sub {
         	  print for join $', @$die[ $%,$==>$|]
         }
        }

##</code><code>##

$%[rand @%]->();