use CGI;@biff = ('|84','|104','|101',
     '|114','|101','|37|50|48','|111','|110',
    '|99','|101','|37|50|48','|119','|97','|115',
   '|37|50|48','|97','|37|50|48','|98','|111','|121',
  '|37|50|48','|37|48|65','|87','|104','|111','|37|50
 |48','|106','|117','|109','|112','|37|50|55','|100','
|37|50|48','|97','|110','|100','|37|50|48','|102','|101',
 '|108','|108','|37|50|48','|111','|102|102','|37|50|48','
   |97','|37|50|48','|99','|108','|105','|102','|102',
    '|37|48|65','|72','|101','|37|50|48','|102','|101',
       '|108','|108','|37|50|48','|119','|105','|116',
         '|104','|37|50|48','|97','|37|50|48','|98',
             '|111','|117','|110','|99','|101','|37
               |50|48','|97','|110','|100','|37|50|48',
                   '|102','|111','|114',
                     '|101','|118',
                         '|101',
                          '|114'
,'|37|50|48','|119','|111','|117','|108','|100','|37|50|48','|98','|111','|117','|110','|99','|101','|37|50|48','|37|48|65','|84',
'|105','|108','|108','|37|50|48','|104','|101','|37|50|48','|119','|97','|115','|37|50|48','|100','|101','|97','|100','|37|50|48',
'|97','|110','|100','|37|50|48','|97','|37|50|48','|115','|116','|105','|102','|102','|46','|37|48|65'); map { map { $string .= 
chr($_) unless(!$_); } split(/\|/,$_); } @biff; print CGI::unescape($string);