if ($line =~ m/^(\w+) (\d+(?:\.\d+)?) (-?\d+(?:\.\d+)?)$/) {
    my ($word, $n1, $n2) = ($1, $2, $3);
}