Help for this page
>perl -wMstrict -le "my $gotA = qr{ (?= .*? A) }xms; ... 'xB' no match 'xC' no match 'Ax' no match