Currently I am splitting the string on "\" and reconstructing it without the last array element. Surely there is a better way.

Indeed there is, use File::Basename, and thy foot shall step upon the path of goodly ways.

### ... sample snippet ... 
my ($basename,$path,$extension) = 
     File::Basename::fileparse($fullpath,qw(.txt));
[download]