This was originally written for my brother (a Java programmer) because I couldn't think of anything to buy him for his birthday.

#!/usr/bin/perl

my $happyBirthday 
#  presents to you!


         =sub {my                 
       $bdp  =  shift             
        ;print pack               
                                       #### ###         
  "c18" ,72 ,  97,112,112,           ####  #  #####            
  121, 32, 66  ,105 , 114,            ###### ####         
  116 , 104 ,  100, 97,121                                
  , 32 ; if (  $bdp=~m/you      #appyBirthd  HappyBirthd  
                                #ppyBirthda  appyBirthda
  /ix) {print  pack  "c3",      #pyBirthday  ppyBirthday  
  116,  111 ,  32;} else {      #yBirthdayH  pyBirthdayH  
  print  pack  "c5", 100 ,                                
  101 ,  97 ,  114, 32 ; }      #irthdayHap  BirthdayHap  
  print $bdp,  "\n"  ; } ;      #rthdayHapp  irthdayHapp
                                #thdayHappy  rthdayHappy
                                #hdayHappyB  thdayHappyB
                                #dayHappyBi  hdayHappyBi

$happyBirthday->('you,');
$happyBirthday->('you,');
$happyBirthday->('__NAME__');
$happyBirthday->('you!');

[download]


BTW, is anyone familiar with the JAPH list on CPAN? I just stumbled on it from an article on perl.com, and was pleasantly suprised to see one of mine listed at the top. There were some other familiar japh's on the list, including camel code, genetic code, Valentines Day!, and Apologies to Joyce Kilmer.

joecamel

In reply to Birthday Obfu by joecamel

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.