if( my( $first, $last) = $line =~ /^([^ ]+) ([^ ]+)/ ){

}