#! /usr/bin/perl
use strict;
use warnings;
use utf8;                           # weil Beispieldaten utf8 kodiert sind

my @collected;
while ( my $line = <DATA> ) {

    # Ausgabe wird gemacht, wenn die aktuelle Zeile nur aus Punkten besteht, oder
    # wenn die Zeile mit zwei Zeichenketten aus Punkten, zwischen denen ein oder mehr
    # Leerzeichen liegen, endet.
    #
    if ( $line =~ m/(?:^|[.]+\s+)[.]+$/ ) {
        chomp @collected;
        push @collected, $line;

        # ">>> " fuer Produktiv-Code entfernen
        print ">>> @collected";
        @collected = ();
    }
    else {
        push @collected, $line;
    }
}

# Beispieldaten
__DATA__
Eingänge, 12 Bit, 0(4)
...20mA (Stecker Typ E),
gemäss Leistungsbeschrieb
ATS 03, komplett betriebsbereit,
verdrahtet inkl. Klemmen
31 158    St ......................     .....................
R  912.553.124     Analoges Ausgangsmodul mit
galvanischer Trennung, 4
Ausgänge, 10 Bit, 0(4) ...
20mA (Stecker Typ E),
gemäss Leistungsbeschrieb
ATS 03, komplett betriebsbereit,
verdrahtet inkl. Klemmen
31 84    St ......................     .....................
R  912.553.125     DALI Modul
gemäss Leistungsbeschrieb
ATS 03, komplett betriebsbereit,
verdrahtet inkl. Klemmen 31 160    St ......................
.....................