if((/Message:/ || $MessageFound) && ($array[2] ne '' || @array != '' ))
    {
        $MessageFound=1;
        if($_ =~ /^\n/)
        {
            print $fh2 "$counter;$line1";
            $line1 = '';
        }
        else { $line1 .= $_};
    }