Need I say more?

#!/usr/bin/perl -w

use strict;

my $song = "Happy birthday to me, happy birthday to me, happy birthday
+ dear Perlmonk Beatnik, happy birthday to me. Now blow out all the ca
+ndles on the cake.";
print join("",unpack("x4A1x14A1X5A1x1a1x5A1x53A1X9A1x6A1x5A1X9A1X9A1X4
+a1A4X5a1x18A2x41A1x16A2X54A1" ,$song));
[download]

Note: I know it's Just instead of Yet but I couldn't fit in a word containing a J.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.