#!/usr/bin/perl
$dongle=chr(65);$dongle.=chr(81);$dongle.=chr(82);$dongle.=chr(84);
             $dongle.=chr(66);$dongle.=chr(72);$dongle.=chr(80);
 $dongle.=chr(90);$dongle.=chr(101);$dongle.=chr(37);$dongle.=chr(152);
                              $dongle.=chr(129);
 $dongle.=chr(76);$dongle.=chr(140);                  $dongle.=chr(145);      
                     $dongle.=chr(74);$dongle.=chr(157);$dongle.=chr(143);
        $dongle.=chr(168);$dongle.=chr(135);$dongle.=chr(79);$dongle.=chr(165);
                                      $dongle.=chr(85);
                         $dongle.=chr(159);        $dongle.=chr(148);
                                      $dongle.=chr(78);
                    $dongle.=chr(188);             $dongle.=chr(195);
     $dongle.=chr(181);$glurp=substr($dongle,0,1);$kernada=substr($dongle,2,2);
            $hurg=substr($dongle,6,1);$grag=substr($dongle,8,1);
$rearg=substr($dongle,12,1);$bungus=substr($dongle,15,1);
                                               $mcchungus=substr($dongle,20,1);
 $blargus=substr($dongle,22,1);$gaffer=substr($dongle,-4,1);
                          $goohnah=substr($dongle,5,1);
$poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;$poobah.=$grag;$poobah.=$rearg;
                        $poobah.=$bungus;$poobah.=$mcchungus;$poobah.=$blargus;
$poobah.=$gaffer;$poobah.=$goohnah;$glurp=unpack("x2 A1",$poobah);
$kernada=unpack("x10 A1",$poobah);$hurg=unpack("x4 A1",$poobah);          
               $grag=unpack("x3 A1",$poobah);$rearg=unpack("x4 A1",$poobah);
                                              $bungus=unpack("x1 A1",$poobah);
$mcchungus=unpack("x5 A1",$poobah);$blargus=unpack("x6 A1",$poobah);


                                      $gaffer=unpack("x7 A1",$poobah);
$goohnah=unpack("x8 A1",$poobah);
           $gringo=unpack("x1 A1",$poobah);$foo=unpack("x9 A1",$poobah);
$bar=unpack("x0 A1",$poobah);
  $baz=unpack("x5 A1",$poobah);$poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;
$poobah.=" ";$poobah.=$grag;$poobah.=$rearg;$poobah.=$bungus;
                                                     $poobah.=$mcchungus;
                 $poobah.=" ";$poobah.=$blargus;
                                       $poobah.=$gaffer;$poobah.=$goohnah;
     $poobah.=$gringo;                        $poobah.=$foo;
                                    $poobah.=$bar;
  $poobah.=$baz;                                 $poobah=uc($poobah);
print $poobah;$coorg=<stdin>;
__END__