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