my $normalized_name = lc $name;
$normalized_name =~ tr/a-z//cd;     # or =~ s/[^a-z]//g