#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

#my @parts = do { local $/ = \6; <DATA> };
my @parts = do { local $/; unpack "A6", <DATA> };


say ">$_<" for @parts;


__DATA__
Hello World!