Select Code to Download

my $file = "c:/progra~1/apache~1/apache2/cgi-bin/test/new/Feb23-2006_0
+_test_error.txt";
if ($file =~ m!^(.*)/(\w+\.txt)$!) {
...
} else {
  print "No match found for '$file'\n";
};