#!perl

use strict;
use warnings;

my $paragraph = 0;

for (<DATA>) {
   do { 
      ++$paragraph; 
      next; 
      last if $paragraph > 2
   } if substr($_, 5, 1) ne ' ';
   print 
      if $paragraph == 2;
}

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