Select Code to Download

use strict;
use warnings;
...

print 'm/^(11+)(\1)+$/', "\n", $exp1, "\n";
print 'm/^(11+){2,}$/', "\n", $exp2, "\n";

m/^(11+)(\1)+$/
The regular expression:
...
)                        end of grouping
----------------------------------------------------------------------