while ($content =~ m/(<textarea.*textarea>)/sg) {

##</code><code>##

while ($content =~ m/(<textarea.*?textarea>)/sg) {