use File::Basename;

( $name, $path, $suffix ) = fileparse( $filename_with_path, "\.[^.]*" );