c:\@Work\Perl\monks\Magnolia25>perl -wMstrict -le
"my $data = qq{line 1 \n}
          . qq{line 2 \n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          . qq{line 8 \n}
          . qq{line 9 \n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          . qq{line 14 \n}
          . qq{\n}
          . qq{\n}
          . qq{\n}
          ;
 print qq{[[$data]] \n};
 ;;
 open my $dfh, '<', \$data or die $!;
 ;;
 local $/ = '';
 while (<$dfh>) {
   print qq{block <<$_>>};
   }
"
[[line 1
line 2





line 8
line 9




line 14



]]

block <<line 1
line 2

>>
block <<line 8
line 9

>>
block <<line 14

>>