Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
$_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
...
'-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
$_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
$AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6
  2. or download this
    #!/usr/bin/perl
$_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
...
'-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
$_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
$AUTOLOAD=~s/\D//gr);}&split9join9chop75chop88;