STDIN №1
...
Termination: *** Backup Error ***
...
...
Termination: Backup OK
...
...
my %term_backup = ("OK", "0" , "OK -- with warnings", "1");
...
while (<STDIN>) {
if (/Termination:\s*Backup\s*/) {
my $term = $'; chop($term);
if (exists($term_backup{$term})) {
$term=$term_backup{$term};
} else {
$term="2";
};
print $term, "\n";
} elsif ....
