22:21 >perl 1345_SoPW.pl
Useless use of greediness modifier '+' in regex; marked by <-- HERE in m/\A ((a|b){2}){1}+ <-- HERE  \z/ at 1345_SoPW.pl line 27, <DATA> line 2.
FAIL
FAIL
FAIL
SUCCESS
SUCCESS

22:21 >