if ($line =~ /\d \t (\w+) \t/x) {