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