use strict;
use warnings;

my $str = "<tag1>Complete</tag1><tag2>3386</tag2><tag3>77844</tag3><tag4>11</tag4><tag5>30</tag5><tag6>4.7</tag6>";

if ($str =~ m|<tag1>Complete</tag1>|) {
     $str =~ s|(?<=<tag6>)(.*?)(?=</tag6>)|$1 * 100|e;
}

print $str;

##</code><code>##

<tag1>Complete</tag1><tag2>3386</tag2><tag3>77844</tag3><tag4>11</tag4><tag5>30</tag5><tag6>470</tag6>