use strict; use warnings; my $str = 'Complete33867784411304.7'; if($str =~ /Complete<\/tag1>/i) { $str =~ s/(.+?)<\/tag6>/"".( $1 * 100 )."<\/tag6>"/ei; } print $str;