如何在Perl中检索标签之间的数据？

Question

我正在开发一个perl脚本.

这是我在new.txt文件中的输入字符串:

<ID>1</ID>
<CLASS>One</CLASS>
<NAME>Saran</NAME>

这是我的代码,它只打印三行:

#!/usr/bin/perl 
open(FILEHANDLE1,"new.txt") or die "Can't Open: $!\n";
while($line=<FILEHANDLE1>)
{ 
print "$line";
}
close FILEHANDLE1;

我需要它只显示标签之间的内容.输出应该是:

1 One Saran

我该如何检索标签之间的数据？有没有办法使用正则表达式？

Answer 1