my @name_part = grep {defined && /[a-zA-Z]/} split /[^a-zA-Z]/, $name;