my ($dir, $name) = $path =~ m|(.*/)(.*)|;