for my $line ( <$fh> ) {
    #mache etwas mit $line
}

while ( my $line = <$fh> ) {
    # mache etwas mit $line
}

while(<$fh3>)
    {
        
        if(/^Context:/)
        {
            $line = chomp($_);
            
            $line= substr($_,10,length($_));
            @array = split(/ /, $line);
            $line='';
                   

            foreach my $idx (0 .. 5) {
             $array[$idx].="|"
            }
            print "$counter|",@array,"\n";
            
            if($array[2] ne "|")
            {
               
              $counter++;
               
               print $fh1 "$counter|",@array,"\n"
            }
        }

        if(/Message:/ || $MessageFound)
        {
            if($array[2] ne "|")
            {
               
                 $MessageFound=1;
               
                   if($_ =~ /^\n/)
               
                 {
               
     chomp($line);
               
     $line =~ s/\s/ /g;
               
     print $fh2 "$counter|$line\n";
               
     $line = '';
               
     $MessageFound=0;
               
 }
               
 else
               
 {     chomp($_);
               
     $line .= $_
               
 };
            }
        }
    }
    $headline=1;

}

#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.txt';
my $context_file = '/path/to/context.txt';
my $message_file = '/path/to/message.txt';

open my $context, '>', $context_file or die $!;
open my $message, '>', $message_file or die $!;

open my $in , '<', $file or die $!;
while( my $line = <$in> ){
    if( $line =~ /^Context/ ){
        $line =~ s/^Context:\s+//;
        $line =~ tr/ /|/;
        print $context $line;
    }
    elsif( $line =~ /^Message:/ ){
        print $message $line;
    }
}
close $in;


close $message;
close $context;