#!perl

use strict;
use warnings;

my $i = 0;

for (<DATA>) {
   print if /Paragraph2/ ... /Paragraph/;
}

__DATA__
     Paragraph1: 
         text
     Paragraph2: 
         text1
         text2
         text3
     Paragraph3:
         text