Zeile 40 
print OutFile @data if (join('', @data) =~ /das_muss_auch_drin_vorkommen/);
 
 
EDIT:
Mit neuerem Perl auch (sollt schneller sein)
print OutFile @data if (@data ~~ /das_muss_auch_drin_vorkommen/);
 
 
Last edited: 2012-08-09 11:34:48 +0200 (CEST)
1 + 1 = 10