use strict;
use warnings;

chomp(my $match = <DATA>);
chomp(   $_     = <DATA>);

for my $regex (
                  "($match){1}+",
                  "($match){1}",
                  "($match)",
                  "($match)+",
                  "($match)+?",
              )
{
    print qw(FAIL SUCCESS)[ !! m/$regex/ ], "\n"
}

__DATA__
(?:a|b)
bbab

##</code><code>##

C:\test>junk37
SUCCESS
SUCCESS
SUCCESS
SUCCESS
SUCCESS