Here is an example: 
#!/usr/bin/perl

use strict;
use warnings;

        use POSIX qw(locale_h);
    my $old_locale = setlocale(LC_CTYPE);
    setlocale(LC_CTYPE, 'ca_ES.iso885915@euro');
    use locale;

my @expressions;
my $content = qq{
La mitad de las personas con VIH requiere de una atención  psicológica
+ y emocional derivada del impacto del diagnóstico o de las  consecuen
+cias de la propia infección, una cifra que dobla a la de la  població
+n general, según las conclusiones de las IV Jornadas de  Divulgación 
+sobre VIH que han reunido a unos doscientos profesionales,  pacientes
+ y estudiantes en el hospital  Reina Sofía de Murcia. En el  congreso
+, organizado por Amuvih en colaboración con el servicio de  Proyecció
+n Social y Voluntariado de la Universidad de Murcia y Abbott,  ha det
+erminado que las personas que viven con VIH demandan especialmente  a
+tención a su salud mental para mejorar su calidad de vida, "una  asig
+natura pendiente a pesar de los innumerables avances  farmacológicos"
+.

Entre otros factores, las jornadas establecieron  que en la situación 
+de "vulnerabilidad" de las personas con VIH  influyen "el propio diag
+nóstico, la comunicación de su situación a los  allegados, el inicio 
+del tratamiento, las fluctuaciones a lo largo de la  infección, la pé
+rdida de salud y deterioro físico, así como los efectos  adversos del
+ tratamiento".

Igualmente, otros factores  importantes son la pérdida de la motivació
+n, el hastío, el estigma y  rechazo, así como las nuevas parejas sexu
+ales, los cambios familiares,  laborales y sociales, entre otras cosa
+s, que derivan en "riesgo de  depresión mayor, trastorno distímico, t
+rastorno por ansiedad  generalizada o trastorno de pánico".
};

my $expression = 'abbot salud::20';
push (@expressions, $expression);

foreach my $exp (@expressions) {
warn "a";
my $tag = 'span';
my $class = "lighligth";
next if ($exp !~ /::/);
my ($exp, $distance) = split("::", $exp);
my ($par1, $par2) = split(' ', $exp);
warn "Pars $par1 - $par2 - $distance";
if ($content =~ /\b($par1)(\W+(?:\w*\W*){1,$distance})?($par2)\b/i){
 warn "IF 1";
 my ($par1, $par2, $par3) = ($1, $2, $3);
 $content =~ s/$par1\Q$par2\E$par3/<$tag$class> $par1<\/$tag>$par2<$ta
+g$class> $par3<\/$tag>/gi;
}
warn "STEP";
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<$ta
+g$class> $par3<\/$tag>/gi;
}
warn "END";
}

[download]

In reply to Re^2: Problems searching and highlighting proximity words in a text by jrc
in thread Problems searching and highlighting proximity words in a text by jrc

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.