This year, I decided to send my friends a different kind of "Merry Christmas" card. I think a little and ended up with this little, poorly perl-coded "Merry Christmas" whish. I'm sure that every monk here has a way to do this, but this is my Merry Christmas Card. Please accept it with love. The text is in portuguese, and says "Merry Christmas and a Happy New Year for all my friends!".

#!/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__

[download]
"In few words, translating PerlMonks documentation and best articles to other languages is like building a bridge to join other Perl communities into PerlMonks family. This makes the family bigger, the knowledge greather, the parties better and the life easier." -- monsieur_champs

Replies are listed 'Best First'.
Re: My Merry Christmas, in perl
by jonnyfolk (Vicar) on Dec 27, 2003 at 08:44 UTC
    or "Feliz Natal e um Prospero Ano Novo a todos os amigos!". Nice one monsieur_champs, Festive Greetings to you, also!
[reply]

Back to Obfuscated Code