my @keys = $line =~ /([A-Z\d]+[-_][A-Z\d]+)/ig;