my( $fname, $lname, $grades ) = /^(.*?) (\S*?) ([ 0-9]*)$/;