use File::PathInfo;
my $abs = '/home/myself/thing.txt';
my $o = File::PathInfo->new($abs) or die;
$o->ext;
$o->abs_loc; # then dir it resides in
$o->abs_path;
$o->filename;
$o->filename_only; # filename without ext