As a gift to you on my birthday, I'll golf the birthday song. The shortest I've seen before goes like this.
for(('to you')x2,"dear $ARGV[0]",'to you'){print"Happy Birthday $_"}
Which could be reduced to the following.
print"Happy Birthday $_"for("to you")x2,"dear ".pop,"to you"
So here's my entry.
print"Happy Birthday ",$_%3?"to you":"dear ".pop for 1..4
Since spring is tomorrow, my website has changed for the season again. I hope you enjoy the colors.
Posted from caseywest.com, comment here.