use strict;
use warnings;

local $/ = undef;
my $content = <DATA>;

my $Re = qr/A(\d)---B(\d)---C(\d)/;

while ($content =~ m/$Re/sg) {    # /s hier nicht benötigt, aber im OT-Re
    print "A: $1, B: $2, C: $3\n";
}
# Leerzeichen in folgender Zeile nur für Post,
# da sich die Forum-Software sonst verschluckt
_ _DATA_ _
....   ...   A1---B1---C1--- .....
... ---A2---B2---C2... ...
.. .. ---A3---B3---C3--- ...