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