sub squish {
  ( my $squished = shift ) =~ s/\W+//g;
  return $squished;
}