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