If there is no encryption then use a strings(1) tool to extract the script, or:

open (my $fh, '<', $file) or die "Oops: $!";

while (<$fh>) {
    print "$1\n" if /([[:print:]]+)/
}

close $fh;
[download]