Perl + expressions régulières

Bonjour,

SVP pourquoi le programme et expression regul. ci-dessous n'arrive pas a me trouver une ligne telle que :

babil (noun):kinderpraat

************

#!/usr/bin/perl

use strict; #utilise les données déclarées
#use LWP::Simple; check this on man
my $ligne;
my $clean;
my $pos;
my $cleaner;
my $txt;

open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>){
if ($ligne =~ /^[a-z][a-z]*\s\(.*\)\:[a-z][a-z]*/){

#$clean=$1;
#print $clean;
print "$ligne\n";
}


#$clean=$ligne;
#$clean=~s/"[a-z][a-z]*//g;
#$clean=~s/\^[a-z][a-z]*//g;
}

close(FILEINPUT);