Regulärer Ausdruck

[Gerd]

Hallo beat,

Hier noch eine überarbeitete Fassung, welche jetzt auch Worte akzeptieren sollte, statt nur einzelne Buchstaben.

ich habe diese Version getestet mit:
......
my $times = 5;
my $var = "XYZ";     <======
my $pat = qr/(?<!$var)${var}{$times}(?!$var)/;
"---XYZXYZXYZXYZXYZ---" =~ $pat and print "success\n";
"---XYZXYZXYZXYZ---" =~ $pat and print "success\n";
"---XYZXYZXYZXYZXYZXYZ---" =~ $pat and print "success\n";
....
Dabei kam in allen drei Fällen keine success-Meldung.
Habe ich einen Fehler gemacht oder liegt es am Skript?
Gruß
Gerd