my @chunks = unpack "(A5)*", "a(b)cd(e)f";
   print $chunks[0], "\n";
   print $chunks[1], "\n";
   __END__
   a(b)c
   d(e)f