my ($directory) = $fullpath =~ m|^(?:(.*)/)?|;