while (<FILE>){
  /^(.*?): \s*(.*)$/;    # Save text before colon in $1, and after 
                         # colon in $2 - Taken from the Camel Chp. 5.9
  $fields{$1} = $2;      # Creat %fields hash

}

##</code><code>##

while (<FILE>){
  if (/^(.*?): \s*(.*)$/) {    # Save text before colon in $1, and after 
                               # colon in $2 - Taken from the Camel Chp. 5.9
    $fields{$1} = $2;          # Creat %fields hash
  }
}