Setting $/ to the string you want won't work if the "P" in </p> might be either upper or lowercase in your input. One way to handle that case is:

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

-sauoq
"My two cents aren't worth a dime.";