Select Code to Download

use strict;
my $str = 'PolaBexar'; # Missing letter, extra letter, two capitals
...
         (?:a|.{0,1}?(?{stack_checkpoints 7}))
         (?:r|.{0,1}?(?{stack_checkpoints 8}))
        /x;