if($_ =~ /<tag1>Complete<\/tag1>/)
{
$_ =~ s/<tag6>(.+?)<\/tag6>/<tag6>$1 * 100<\/tag6>;
}