my @a = (
    [ 'start 0', $b =~ /(.)./g ],
    [ 'start 1', $b =~ /.(.)/g ],
);