my $testVar = <<EOF;
fasdfasdf
asdfasdfasdf

asdfasdfasdf
asdfasdfasdf
asdfasdfasdf

asdfasdfasdf

sdfasdfasdf
EOF

while ($testVar =~ m/(.*?)\n\n/sg)
{
  print 0;
}