Select Code to Download

use strict;
use warnings;
...
    }

sub normalize_case { return lc $_[0]; }

c:\@Work\Perl\monks\Anonymous Monk\1231409>perl dynamic_match_2.pl
before: [[this is a nutrition assessment for animal
...
for a <<regime alimentaire equilibre>> of
<<aliment>> for proper <<diet>>.
]]