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 ......................     .....................