$content = qq(<textarea class="FolderTxtArea" name="blah"><%=foo::doSomething%></textarea>);

while ($content =~ m/(<textarea.*textarea>)/sg) {
	my $match = $&; 
	my $varmatch;
	print "match: before ..... $match\n";
	if( $match =~ m/(<%=.*?%>)/sg){

		$varmatch = $1;
		print "varmatch:  $varmatch\n";
		pos $match ;
		#cut var tag
		$match=~ s/$varmatch//g;
		print "match: after  .... $match\n";
		$match=~ s/textarea/testinsert$varmatch/g;
		print "match: after testinsert  .... $match\n";
	}
}

##</code><code>##

match: before ..... <textarea class="FolderTxtArea" name="blah"><%=foo::doSomething%></textarea>
varmatch:  <%=foo::doSomething%>
match: after  .... <textarea class="FolderTxtArea" name="blah"></textarea>
match: after testinsert  .... <testinsert<%=foo::doSomething%> class="FolderTxtArea" name="blah"></testinsert<%=foo::doSomething%>>