Select Code to Download

use Text::Diff qw(diff);
[...]
...
        { STYLE => "OldStyle"};
@diff = split '\n', $diff;
[...]

LINE:
for my $line (@diff) {
    next LINE if $line =~ /set password ENC/;
    [...]
}

        set private-key "-----BEGIN ENCRYPTED PRIVATE KEY-----
MIIFDjBABgkqhkiG9w0BBQ0wMzAbBgkqhkiG9w0BBQwwDgQInXCep+2zzpgCAggA
...
M+b28ad6P8VZiN+eToUfs3pTg+VqzAc273fdnZPZFMClXpJk8kQZv0ruEoA99RqE
pgsnYGVxzZNmDy5HT3yBDGjRCssDnQ8QUBqabFCpW6d7fzilw9PnoHjFRmLxKnNE
[...]

    next LINE if $line =~ /{looks like random stuff to me}/;