sub initials {
  my $name = shift;
  for my $word (split(/( |_)/,$name) {
    push @abbr, substr($word,0,1);
  }
  print join('',@abbr);
}