A little cleaner than m//g or split is to use unpack for this purpose:

my @pieces = unpack "(A8)*", $data;
[download]

Someone correct me if I'm wrong, but I seem to remember that this unpack syntax (paren-groupings and star) may not have been around for all of Perl 5, so it's worth double-checking with your version of perl.