Select Code to Download

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

}

while (<FILE>){
  if (/^(.*?): \s*(.*)$/) {    # Save text before colon in $1, and aft
+er 
...
    $fields{$1} = $2;          # Creat %fields hash
  }
}