use strict;

my $line = qq(<textarea type="text" value="foo" name="text_message" />&nbsp;<%bar%>&nbsp;</p>);

if ($line =~ /<textarea .+ value="(.+?)".+(<%.+%>)/) {

    my $foo = $1;
	my $bar = $2;
    $line =~ s/<textarea/<input/;
    $line =~ s/$bar/$foo/;
    print $line;
	
}