my ($last, $first, $middle) = ($name =~ /(\w+)\W*?(\w+)\W*(\w)?/);