perl-切割数组

#!/usr/bin/perl
my $message = ‘‘;
$message = supperMonitor();
@strArr=split(/\n/,$message);

my $i=1;
my $count=1;
my $msg=‘‘;
while($count<[email protected]){
   $msg .= "====$strArr[$count-1]==\n";
    if($i==5){
       print "==$i=$msg==\n";
       $msg=‘‘;
       $i=0;
    }
    $i++;
    $count++;
}