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

But I also would not use a separate sub for this one.