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

##</code><code>##

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