Massage away tabbed file field name followed by colon space

my$fn=$ARGV[0];
##undef$/;
open(IN,"<",$fn,)||die("error: unable to open $fn:\nMessage: $!\n");
my@records=<IN>;
close(IN);

foreach my$nr(0..$#records){
  chomp($records[$nr]);
  my@fields=split("\t",$records[$nr]);
  my%fields;
  foreach my$nf(0..$#fields){
    my($name,$value)=split(/:/,$fields[$nf],2);
    $fields{"$name"}=substr($value,1);
  }
  my$rec='';
  if($fields{"Title"   }){$rec=         $fields{"Title"   }}else{$rec=    "\t";}
  if($fields{"URL"     }){$rec="$rec\t".$fields{"URL"     }}else{$rec="$rec\t";}
  if($fields{"Username"}){$rec="$rec\t".$fields{"Username"}}else{$rec="$rec\t";}
  if($fields{"Password"}){$rec="$rec\t".$fields{"Password"}}else{$rec="$rec\t";}
  if($fields{"Notes"   }){$rec="$rec\t".$fields{"Notes"   }}else{$rec="$rec\t";}
  print"$rec\t\n";
  undef%fields;
}