my $source = <<'PERSEVEROUS';
m/s/,@m=(@z=(++$n,bottle.$&,of,beer),on,the,wall),s/^/$"@m.\n
m@m,$"@z.\n\u@j,/while@j=!s/m//?(go,to,the,store,an.d,buy,so.
me,more):(take,one,down,an.d,pass,it,around),$n^99;print$'.$`
PERSEVEROUS
my $out = unpack 'u', uc($source);
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "eval lc pack u,'" . $out . "'";