while (my$line = <$fhin>)
   {
       if ($line =~ m/\bNOQUEUE\b/)
       {
           # wenn der Suchstring "NOQUEUE" vorkommt,
           # und "from=<" gefunden wird,
           # wird das ausgabearray erweitert
           # der Text zwischen from=< und > wird dann ins outputfiluebergeben
           # zusammen mit dem datum von zeichen 0-15 in dieser Zeile

           if ( $line =~ m/from=<\s*(.*?)>/ )
           AND if ( $line =~ m/to=<\s*(.*?)>/ )
           { push(@output, substr( $line, 0, 15 ) .' : '. $1) }

       }
   }

           if ( $line =~ m/from=<\s*(.*?)>.*?to=<\s*(.*?)>/ ){ push(@output, substr( $line, 0, 15 ) .' : '. $1 . '::'.$2) }