I suspect that you $line did not hold the whole data.

local $/;
$_ = <STDIN>;
my $blanks = () =~ /\n\n+/sg;
print "double lines found ( $blanks )\n";
[download]

The example search for lines with two or more \n.