RegExp en PERL

Bonjour tout le monde,

je cherche depuis quelques heures à constituer une "regexp" me permettant de récupérer tous les caractères présent dans la chaîne jusqu'au caractère "_" qui marquera la fin de la chaine à récupérer.

Pour être plus claire, j'ai un nom de fichier qui représente quelque chose comme "Attestation Mr X_******.pdf".
Mon but est d'obtenir dans une variable, la chaine "Attestation Mr X".

N'étant pas très doué en PERL je viens solliciter votre aide afin de résoudre mon problème.

Vous remerciant d'avance,

Nefast