Select Code to Download

sub apply {
    my $ref = $_[1];
...
    $$ref =~ s/(.{9})/$1\n/g;
    $$ref = q(local $_=<<'';y;\r\n;;d;$_=pack'b*',$_;$_=eval;$@&&die$@
+;$_;)."\n$$ref\n\n";
}