sub reform {
  my $line = shift;
  my @toret;

  foreach my $word (split(/\b/,$line)) {
    if (lc($word) eq 'mrs') { $word = "Mrs."; }
    elsif (length($word) > 2) {
      $word =~ s/^(.)(.*)/uc($1).lc($2)/se;
    }
    elsif (lc($word) eq 'mr') { $word = "Mr."; }
    push (@toret, $word);
  }

  return join("",@toret);
}