Select Code to Download

   use strict;
   die'TILDE',@~;
...
   push@~,*{PAR}=>;($~[$#{~}],$~[$#{~}
   +-1])=($~[$#{~}+-1].$/=>$~[$#{~}]);
   for(@{~}){s~.*:~~;s~$~ ~ if$?++%2}}

   use strict;no warnings;
   sub CHECK{
...
      #   [TILDE][T][H ][D][O ][U][S ][PAR][T\n ]