Une façon un plus propre et sûre de faire la même chose :


my @alts = ('lundi', 'mardi', 'mercredi');
my $regexp = join '|', map { quotemeta } @alts;
my $mot = "mardi";
if ($mot =~...