$re = qr[((?:$word$sep){0,$n}\Q$match\E(?:$sep$word){0,$n})];;
$match = 'CPAN';;

print $para =~ m[$re];;
There probably is already a CPAN module for this, but I am stuck trying to figure