For more information on this node visit: this
$string = qq!Paragraph One Paragraph Two Paragraph Three!; my $return = "[\r\n]"; my ($paragraph_two) = $string =~ m/.+$return(.+)$return.+/i; print $paragraph_two; [download]
Paragraph Two [download]