if ($content =~ /$par2.*$par1/i) {
        if ($content =~ /\b($par2)(\W+(?:\w*\W*){1,$distance})?($par1)\b/i){
            warn "IF 2";
            my ($par1, $par2, $par3) = ($1, $2, $3);
            $content =~ s/$par1\Q$par2\E$par3/<$tag$class> $par1<\/$tag>$par2<$tag$class> $par3<\/$tag>/gi;
        }
    }


##</code><code>##

    if ($content =~ /\b($par1)(\W+(\w+\W+){0,$distance})($par2)\b/i) {