my ($one, $two, $three) = split( /(\d+)\s+/, $line, 2);