- or download this
use Text::Diff qw(diff);
[...]
...
{ STYLE => "OldStyle"};
@diff = split '\n', $diff;
[...]
- or download this
LINE:
for my $line (@diff) {
next LINE if $line =~ /set password ENC/;
[...]
}
- or download this
set private-key "-----BEGIN ENCRYPTED PRIVATE KEY-----
MIIFDjBABgkqhkiG9w0BBQ0wMzAbBgkqhkiG9w0BBQwwDgQInXCep+2zzpgCAggA
...
M+b28ad6P8VZiN+eToUfs3pTg+VqzAc273fdnZPZFMClXpJk8kQZv0ruEoA99RqE
pgsnYGVxzZNmDy5HT3yBDGjRCssDnQ8QUBqabFCpW6d7fzilw9PnoHjFRmLxKnNE
[...]
- or download this
next LINE if $line =~ /{looks like random stuff to me}/;