perl批量处理项目中代码空行过多的情况

项目中有的代码空行过多，这里用脚本批量处理一下，规范代码，把换行符连续3个以上的统一规范为两个换行符。以C++项目为例，脚本中处理后缀为 (h|hpp|cpp|cc) 的代码文件，perl脚本如下：

#! /usr/bin/perl
use v5.14;
use File::Find;
use IO::File;

my @filesArry = ();
my $callback