my($name, $age, $weight) = ($line =~ /$pattern/);