Select Code to Download

    my $keywords = q|fait une petite St-Laurent|;
    my @keywords = split / /, $keywords;

...
    return $total_words_found || 0 ;

}

user@serverdev admin $ perl test.cgi
$VAR1 = {
          '1' => {
...
                   'value' => 'Nous avons vu plusieurs baleines: rorqu
+als communs, marsouins et bélugas. C\'est vraiment impressionnant de 
+voir les baleines de si près! Entre l\'excursion en bateau ou celle e
+n kayak, je te conseille fortement celle en kayak. L\'expérience est 
+beaucoup '
                 }
        };