$string = qq!Paragraph One
Paragraph Two
Paragraph Three!;

my $return = "[\r\n]";

my ($paragraph_two) = $string =~ m/.+$return(.+)$return.+/i;

print $paragraph_two;

##</code><code>##

Paragraph Two