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

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

##</code><code>##

$VAR1 = [
          'Foo',
          'Bar',
          'Baz'
        ];