my $row = ./filename.ext;  

($req_file, $dir, $ext) = fileparse($row, '(?<=\.)[^.]*');