my ($dir, $file) = $path =~ m{^(?:(.*)/)?([^/]+)$}x;