Select Code to Download

#!/usr/bin/perl -w                           # how to (ab)use substr
use strict;
...
 substr         ($pi,9,2));}(map{chr($_+
   substr       ($pi,21,2))}(
     substr     ($pi,8)x3)=~/../g);

substr($^X,0)=substr($pi,-6);

...
        chr($_+
        substr($pi,21,2))
        }(substr($pi,8)x3)=~/../g);

substr($^X,0)=substr($pi,-6);

...
   substr($pi,-3,1).'.'.
   substr($pi,9,2));
   }(@tempa);

substr($^X,0)=375062;

...
   0.'.'.
   05);
   }(@tempa);

$^X="select";

...
   print"$^O$/";
   eval($^X.('$b,'x3).'0.05');
   }(@tempa);

$^X="select";

...
  print"$^O$/";
  eval($^X.('$b,'x3).'0.05');
}

foreach (substr($pi,8)x3)=~/../g)
{
...
  print"$^O$/";
  select $b,$b,$b,0.05;
}

foreach (("Just~another~Perl~hacker~"x3)=~/./g) 
{
...
  print"$^O$/";
  select $b,$b,$b,0.05;
}