my $source = <<'PERSEVEROUS';
v;$_=v71.ovtovthevstorevandvbuyvsomevmore;@z=($b=++$n.vbottle."s"x@+.vof.
vbeer,onvthevwall),s;^;\utakevonevdownvandvpassvitvaround,v@z.\n\n@z,v$b.
;,y/v/\40/until/,.99[^9]*/;print$'.$&
PERSEVEROUS
my $out = unpack 'u54', uc($source);
open my $fh, '>', 'b.pl' or die "error: open b.pl: $!";
binmode $fh;
print $fh "eval lc pack u54,'" . $out . "'";