Saludos Terricolas!

aver os comento..me gustaria contar las veces que se repite una palabra en la linea, comentando el ejercicio , tengo un fichero con varias lineas y entre ellas busco cuantas veces esta "PRUEBA" pero solo consigo saber si aparece en la linea.

while(<FICHERO>){
   $dat = $_;
   $contador += 1 if $dat =~ m/PRUEBA/g;
}

He colocado /g pensando que alomejor me reconocería las distintas veces que la ve pero nada, tambien he probado a guardar la salida de $dat =~ m/PRUEBA/g en otra variable para saber cual es la salida por si cambia dependiendo de las palabras que encuentre pero sin resultados xDD , he probado a meter la expresion en un while($dat =~ m/PRUEBA/g) pero tampoco. Haber si me hechais una mano.

Salud!