#!/usr/bin/perl

use strict; # sollte Pflicht sein, siehe auch im Wiki (FAQ)
use warnings;

my @filter = ("failure"); # hier noch weiter Filterworte eintragen
my $file  = '/path/to/log.file';
my $outfile = '/path/to/result.file';

my $re = join '|', @filter;

open my $fh, '<', $file or die $!; 
open my $out, '>', $outfile or die $!;
# gehe durch die ganze Datei
while( my $line = <$fh> ){
    chomp $line;
    # wenn eines der gesuchten Worte in der Zeile steht
    if( $line =~ /$re/ ){
        my $transformed_line = ''; # hier die Transformation machen
        print $out $transformed_line,"\n";
    }
}
close $out or die $!;
close $fh;