sub squish {
    my $copy = shift;
    $copy =~ s/\W//g;
    return $copy;
  }