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/\A $regex \z/x ], "\n"
}

__DATA__
(a|b){2}
bbab