use File::Basename;
my $dirname = dirname ("lib/this/that/other.txt");

##</code><code>##

($path, $filename) = $fullpath =~ m/^(.*[/\\])([^/\\]+)/;