use strict;
my $str = 'locaux lumineux
locaux traversants et lumineux
locaux rénovés sont lumineux
local commercial de 47 m² très lumineux
bureaux lumineux
bureaux très lumineux
bureaux haussmaniens ultra-lumineux
bureaux cloisonnés et lumineux
bureaux neufs et lumineux
bureau privatif cosy et lumineux
bureaux agréables et lumineux
openspace lumineux
espaces de travail sont lumineux
plateaux très lumineux
plateaux sont très lumineux
duplex atypique et lumineux
bien agencé et lumineux
surface lumineuse
boutique très lumineuse
locaux en état d\'usage belle luminosité
bénéficie d’une luminosité
offrants une grande luminosité
en angle et d’une belle luminosité
verrière apportant élégance et luminosité
belle luminosité
grande luminosité
bonne luminosité
hauteur sous plafond lumineux
[NE PAS TENIR COMPTE]
seuil de luminosité
détecteurs présence et luminosité
variateur en fonction de la luminosité
points lumineux
pavés lumineux
zone d\'activité lumineuse
dalle quartz belle luminosité
dalles lumineuses
plafond en dalle minérale points lumineux
cage d\'escalier très lumineuse';
my $regex = qr/(seuil|d[ée]tecteurs?|variateur|dalles?|seuil)(lumineux?|lumineuses?|luminosit[ée])/mp;
if ( $str =~ /$regex/g ) {
print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
# print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
# print "Capture Group 2 is $2 ... and so on\n";
}
# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html