sub without_ext { my ($file) = @_; return substr($file, 0, rindex($file, '.')); } sub ext_only { my ($file) = @_; return substr($file, rindex($file, '.') + 1); }