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