#/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $line = "FooBarBaz";
my @array = unpack('A3A3A3',$line);
print Dumper \@array;