my $data = 'a(b)cd(e)f';
my @chunks = $data =~ /.{5}/g;
print "@chunks";