[Perl] Estrarre stringhe da file di testo

[Format]

Ciao,
dovrei estrarre dei campi da un file di testo formattato come segue:

utente : pippo.pluto
host : 192.168.1.2
class : free4

utente : peppe.pluto
host : 192.168.5.2
class : free2

devo estrarre per ogni blocco il valore associato a utente, host e class.
Come posso impostare la funzione in modo che lo script scorra l'intero file?
Grazie

[MARTEDI]

$n=1;
open (NF,"nome_file.txt");
while (<NF>) #processi riga per riga
{
   chop $_; #togli il "vai a capo"
   if ($_ =~ /utente :/) #se contiene "utente :"
   {
      $_ =~ s/utente : //; #escludi la prima parte della riga
      $campo_utente=$_; #il campo utente
   }
   if ($_ =~ /host :/) #se contiene "host :"
   {
      $_ =~ s/host : //;
      $campo_host=$_; #il campo host
   }
   if ($_ =~ /class :/) #se contiene "class :"
   {
      $_ =~ s/class : //;
      $campo_class=$_; #il campo class

################## QUI HAI I 3 CAMPI TROVATI ##################
# $campo_utente  $campo_host  $campo_class della riga/gruppo $n
###############################################################
      $n++;
   }
}
close (NF);