$string =~ s/<tag>(.*?)<\/tag>/$1 =~ s/\n/<br>/gs;/ieg;