#!/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!');