@word =~ m/\w{2}/i;

##</code><code>##

   foreach my $word (@word) {
     if ($word =~ m/^[A-Z]/) {
     if ($word[0] ne "[Sidenote:") {
       $name = $word[0]." ".$word[1];

##</code><code>##

my @names = $letter =~ /\b[A-Z][a-zA-Z]+\s+[A-Z][a-zA-Z]+/g;