substr()
substr($string,-7);
我建议您只需复制并将其粘贴到代码中之前,先阅读substr()(我链接到上面)的Perldoc页面。它执行你所要求的,但substr()是一个非常有用和多功能的功能,我建议你理解你可以使用它的一切(通过阅读文档)。
此外,在将来请考虑您的问题(或者,在Perl的情况下,查看Perldoc)。您可以在这样的事情上找到很好的资源,而无需在此提问。不要放下你的问题,但它很简单,我想如果你尝试了,你可以自己找到答案。