s/([^\/\\]+)$//;

##</code><code>##

    my ($drive, $path, $file);
    die "Invalid file name!"
        unless $file_query1 =~ /(\w:)?(.+)[\\\/](.*)/;
    print "Drive=", $1, ", Path=", $2, ", File=", $3, "\n";