use File::Basename;

    ($name,$path,$suffix) = fileparse($fullname,@suffixlist);
    $name = fileparse($fullname,@suffixlist);

##</code><code>##

$name,$path,$suffix) = fileparse($fullname,qr/\..*/);