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

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

__DATA__
(a|b){2}
bbab

__OUTPUT__
FAIL
SUCCESS
SUCCESS