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