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