Help for this page

Select Code to Download


  1. or download this
    #@<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R+"<``
    
  2. or download this
    #@<')I;G0G2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R+"<``
    eval<DATA>;
    sub X { $_ = unpack('u', $_) until /u(?{eval})/ }
    __DATA__
    seek(DATA, 0, 0); X() for <DATA> =~ /.(.*.)./;