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