Regeulärer Ausruck mit Variable vom Pfad

[Igel]

Hallo zusammen,

ich verstehe nicht warum mein RegExp nicht funktioniert (also "Mist" ausgibt) in Variante 1, Variante 2 und Variante 3.

Variante 1:

$File_anfang="C:\ABC.1\datei";  
$File="C:\ABC.1\datei1.txt";  
  
if ($File =~ /${File_anfang}(\d+).txt$/)  
{  
print "So solls sein ! => $1";  
}  
else {print "Mist";}

Variante 2:

$File_anfang= quotemeta "C:\ABC.1\datei";  
$File="C:\ABC.1\datei1.txt";  
  
if ($File =~ /${File_anfang}(\d+).txt$/)  
{  
print "So solls sein ! => $1";  
}  
else {print "Mist";}

Variante 3:

$File_anfang= quotemeta "C:\ABC.1\datei";  
$File="C:\ABC.1\datei1.txt";  
  
if ($File =~ /\Q${File_anfang}(\d+).txt$/)  
{  
print "So solls sein ! => $1";  
}  
else {print "Mist";}

Variante 4: => FUNKTIONIERT

$File_anfang= quotemeta "C:\ABC.1\datei";  
$File="C:\ABC.1\datei1.txt";  
  
if ($File =~ /(\d+).txt$/)  
{  
print "So solls sein ! => $1";  
}  
else {print "Mist";}

Kann jemand helfen?
Danke.

Gruss
Igel