#!/usr/bin/perl
$_=q,


                   4
                  665
                 6c697
                a204e61
               74616c206
              520756d2050
             726f737065726
            f20416e6f204e6f
           766f206120746f646
          f73206f7320616d6967
                 6f732
                 10aH*

       Merry Christmas for All!!


,;($_,$x)=m;([^H]+)(..);;s;\s+;;g;$_=pack$x,$_;print
__END__