Help for this page
s/([^\/\\]+)$//;
my ($drive, $path, $file); die "Invalid file name!" unless $file_query1 =~ /(\w:)?(.+)[\\\/](.*)/; print "Drive=", $1, ", Path=", $2, ", File=", $3, "\n";
0 1 2 3 4 5 6 7
Results (659 votes), past polls
