Regeulärer Ausruck mit Variable vom Pfad

[Igel]

Sorry, ich hab vergessen zu erwähnen, dass $File aus einem Array kommt.

my @FILES = <*.txt>;  
if (@FILES)  
{  
LOG_MESSAGE("### file found");			  
  
foreach my $File (@FILES)  
{  
  
if ($File =~ /(\d+).txt$/)  
{  
print "So solls sein ! => $1";  
}  
else {print "Mist";}

Und das funktioniert nicht. Mein Beispiel von oben funktioniert nämlich *upp*.