$string =~ s{<tag>(.*?)</tag>}
            {(my $x = $1) =~ s/\n/<br>/g; "<tag>$x</tag>"}gise;