Help for this page
>perl -wMstrict -le "for my $s (qw( ... NO match : 'xYYYYx' NO match : 'xRRRRRx' NO match : 'RRRR'