#! /usr/bin/perl

sub read_blocks {
  my $handle = shift;
  local $/   = shift;

  while ( my $block = <$handle> ) {
        # replace newlines with simple space
        $block =~ tr/\r\n/ /s;

    print ">>> $block <<<\n";
  }
}

# give it a handle, and the block delimiter
read_blocks( *DATA, "....\n" );


__DATA__
la
 le
   lu ....
foo
   bar ....
what
ever
....

#! /usr/bin/perl

my @collected;
while ( my $line = <DATA> ) {
        # line must end with 4 points
        if ( $line =~ m/\Q....\E$/ ) {
                chomp @collected;
                push @collected, $line;

                print "@collected";
                @collected = ();
        }
        else {
                push @collected, $line;
        }
}

__DATA__
la
 le
   lu ....
foo
   bar ....
what
ever
....

use strict;
use warnings;

undef $/;   # gesamte Datei lesen
my $rohdaten = <DATA>;
$rohdaten =~ s/\n/ /g;

while ($rohdaten =~ m/(.+? St \.{10,} + \.{10,})/sg) {
    print "$1\n";
}
__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 ......................     .....................