my ($dirname, $basename) = $path =~ m/^(.*)\\(.*)\.abc$/;