#!/usr/bin/perl

use strict;
use warnings;

my $file = 'KNAPP_2005.txt';
my $files = 'knappziel_1_3.txt';
my @lines;

open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
    chomp $line;
    my @line = (split(/[\s\:\\]+/,$line));
    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 join(";",@$_),"\n" for (@lines);
close $w_fh or die "kann nicht schliessen $w_$!";