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