Help for this page
use File::Basename; ($name,$path,$suffix) = fileparse($fullname,@suffixlist); $name = fileparse($fullname,@suffixlist);
$name,$path,$suffix) = fileparse($fullname,qr/\..*/);