$content =~ /\b($par1)(\W+(?:\w+\W+){1,$distance})?($par2)\b/i
$content =~ /\b($par2)(\W+(?:\w+\W+){1,$distance})?($par1)\b/i