my ($last_name, $first_name, $middle_initial) = ( $_ =~ /(\w+)\W*?(\w+)\s?(\w)?/) ;