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