http://www.perlmonks.org?node_id=982922


in reply to Re^2: How do unpack templates work
in thread How do unpack templates work

Or you could use a regular expression: 

my ( $uu1, $uu2 ) = $uuid =~ /(\C{4})(\C+)/;

[download]

In Section Seekers of Perl Wisdom