use warnings;
use strict;

my $x = 'a' x 26;

if($x =~ /a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?aaaaaaaaaaaaaaaaaaaaaaaaaa/) {print "ok\n"}
else {print "not ok\n"}