do_something($_) for unpack 'A5A5', 'a(b)cd(e)f';

##</code><code>##

$ perl -le 'print for unpack qw/A5A5 a(b)cd(e)f/'
a(b)c
d(e)f