(my $squished_name = $name) =~ s/\W//g;

my $squished_name = squish($name);