Help for this page
>perl -wMstrict -le "for my $s (qw( ... no A or B found in 'xx' at -e line 1. no A or B found in 'x' at -e line 1. no A or B found in '' at -e line 1.
>perl -wMstrict -le "my %xlat = qw(A yes B no); ... no A or B found in 'xx' at -e line 1. no A or B found in 'x' at -e line 1. no A or B found in '' at -e line 1.