Perl 需要正则表达式方面的帮助吗

我们有一个具有以下语法的文件：

I/P : abc_com.an.gx3d_02-20-2014_05-26-38.txt
O/P : abc_com.an.gx3d

我试图删除以时间戳开始的部分。我尝试使用以下代码，但它不起作用：

(my $test = $file) =~ s/^\d{2}\.*//;

---

^anchor强制正则表达式只匹配字符串开头。您可能希望更接近以下内容：

(my $test = $file) =~ s/_\d{2}-\d{2}-\d{4}_.*//;