Select Code to Download

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

...

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