substr($string, index($string, '<tag>'), rindex($string, '</tag>')) =~ s/\n(?!$)/<br>/g;