使用Perl如何读取文件并解析日志以查找错误日志并输出到log.txt文件

I am trying to use Perl to create a program that will read in data for a file that is 40,000+ lines long and parse through each message to extract the error messages from it.I am trying to use Perl to create a program tha