Select Code to Download

$_ = "_";
print;
...
print .''.tr/u/s/;
print .tr/s/t/;
print .tr/t/ /;

# declare some protos so we can call the subs J A P and H
# without an & prefix or () suffix -> ie as barewords.
...
      H;e:y:e:r:.
      H;r:y:r:_:. # final transformation changes $_ to '_'
      print;exit} # so we print symetrical '_' and exit