open(FILE, "yourfile") or die; 
my $file = do {local $/; <FILE>};  
$file =~ m!(.*?</p>.*?</p>.*?</p>)!is;
my $match = $1;