my $Txt = "ArtikelNr|4711X";
$Txt =~ /^(ArtikelNr)\|(.*)(X_Z|X|_Z)$/;
print "ArtikelNr:$2";