my ($last_path_piece) = $path =~ m|([^/]*)$|;