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

Update: I know that we should not really care XP points, but since I see a -1 on top of this node, I'm astonished. What's wrong with the code I proposed?

I don't see why it shouldn't work:

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

I wonder if the person who downvoted this also had something intelligent to say...