Récuperer des chaines de caractères en PERL

Bonjour,


J'ai un fichier du type suivant:
fonction1()
permet de faire truc
fonction_2()
sert à bidule

etc.... sur quelques pages

et je voudrais récupérer seulement les noms des fonctions:
fonction1
fonction_2


etc...

mon seul dénominateur commun est que les chaines de caractères que je veux récupérer finissent pas ()
elles sont toutes suivies par une ligne de description que j'aimerais supprimer.

j'ai fait mon premier programme en PERL ce matin, j'arrive à substituer un caractère par un autre, mais après je sèche!!

Si quelqu'un peut me donner une piste ;)

Merci