while ( $line = <$fh> ) {
  # nur wenn ein String nach "RCPT from" gefunden wird, wird eine Ausgabe gemacht
  if ( $line =~ m/RCPT from\s*(.*?):/ ) {
    print $out substr( $line, 0, 15 ) . ' : ' . $1 . $/;
  }
}