我是 Perl 的初学者，有如下部分数据：
ATOM 2067 N SER 7 316 -2.78500 -0.14800 -0.01300 N_R 3 0 -0.47000 0 0
ATOM 2068 HN SER 7 316 -2.51586 0.06218 0.89490 H___A 1 0 0.31000 0 0
ATOM 2069 CA SER 7 316 -3.57800 -1.36200 -0.28500 C_3 4 0 0.07000 0 0
我希望能够在每行中没有 H_ 的情况下将数据打印到另一个文件行。你能帮我找出正则表达式中的错误吗？
while (<localBGF>)
{
$line = $_;
if ($line =~ /^ATOM\s+\d+\s+(\S+)\s+SER/)
{
if ($line !~ /^ATOM\s+\d+\s+(\S+)\s+SER\s+\d\s+\d\s+\d\s+\d\s+\d\s+H_/)
{
print BGF $line;
}
}
}