Regulärer Ausdruck

[Gerd]

my $pat = qr/(?<!$var)${var}{$times}(?=[^$var])/;
Der Trick                ^   ^

"---XXXXX---" =~ $pat and print "success\n";
.....

Na ja, auf diesen Trick kann ja ein Neuling nie kommen!
Gut dass es das Forum gibt!
Deine neue Version werde ich morgen testen.
Habe inzwischen versucht, den zweiten Teil des Problems anzugehen:
Ersetzen der (im obigen Beispiel 5 X durch Y).
Hier mein Versuch:

.....
$Ersatzext="Y";
my $feld="---XXXXX---";
$feld = s/(?<!$var)${var}{$times}(?=[^$var])/$1$Ersatztext$2/g;
.....
$1 und $2 sind aber gar nicht bekannt!?

Mittels $pat weiss ich schon gar nicht wie es gehen sollte, denn der reg. Ausdruck lautet
s/(?<!$var)${var}{$times}(?=[^$var])/$1$Ersatztext$2/g

Ich gebs auf für heute.
Hoffe, dass ich morgen oder am Montag noch Unterstützung finde.
Gruß
Gerd