在RegEx

Question

我有这段代码：

foreach my $line(<INFILE>) {
  @data = split('\t', $line);
  print OUTNC "$1\n" if ($data[1] =~ /NC_/);
}

但是当我运行它时，它会给我带来下一个错误： “在concernation（。）中使用未初始化的值$ 1或在parser.pl第15行，第190805行使用字符串。”

你能说出错误是什么吗？谢谢！