#!/usr/bin/perl
use strict;
use warnings;
my $file = 'KNAPP_2005.txt';
my $files = 'knappziel_1_3.txt';
my @data;
my @lines;
open(my $fh,'<';$file) or die $!;
while(my $line = <$fh>{
#chomp $line;
my @line = (split(/[\t\s\:\\]/,$line));
foreach (@line){
s/^\s+/;/g;
s/\s+$/;/g;
}
if ($line =~/\bfast\b/){
push(@lines,$line);
}
}
close $fh or die "kann nicht schliessen$!"
print $_ for (@lines);
open(my $w_fh,'>',$files) or die $!;
print $w_fh $_ for (@lines);
close $w_fh or die "kann nicht schliessen $w_$!";