use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump);

say (/\Aa*\Z/ ? "$_ is all a's" : "$_ is not all a's") for qw(aaaa aaaab aaac cccccbbb cccca);