my $string = q~Beschreibung_______|_234'322'434
blablabla
ipse lorem ...
Beschreibung_______|_234'322'433~;
my (@zahlen) = $string =~ /Beschreibung_+\|_+([\d']+)/g;
print $_,"\n" for(@zahlen);