my $name = my $squished_name = 'Rob J Anderson';
  $squished_name =~ s/\W//g;