>>338
$text = "0\n1\n\n2\n\n\n3\n\n\n\n*";
while($text =~ m/^\s*$/mg) {
print join(':',length($'),length($&)),"\n";
}

こういう事らしい。
空行が1個の場合は0文字幅の一致が1回。
複数の場合は、n文字幅の一致と0文字幅の一致で2回マッチ。