hbd-golf.pl

#!/usr/bin/env perl

use v5.16;
no strict; # DANGER
no warnings;

# 43 + 10 = 53
say"Happy birthday to ".($_-2?you:programmer)for+0..3
;

# 49 + 10 = 59
say"Happy birthday to ".qw(you programmer)[not$_-2]for+0..3
;

# or one that has correct punctuation:

# 64 + 10 = 74
say+(join+",\n",map{"Happy birthday to @{[$_-2?you:programmer]}"}0..3)."."
;