...

while ($text =~ /\w+\n\n\w+/g) {
   print "reading file test:\n$text\nmatches.\n";
}