my $test = "Here is the there";
$test =~s/(ther*)/\<test\>$1\<\/test\>/ig;
print "$test\n";