my ($id, $first, $last, $age) = $line =~ /^ID=(\d+)\s+First=([a-zA-Z]+)\s+Last=([a-zA-Z]+)\s+AGE=(\d+)\s*$/;