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

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

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

print $paragraph_two;
[download]

Output:

Paragraph Two
[download]

This was done fast, but is this along the lines of what you are on about ?