Select Code to Download

#/usr/bin/perl
use strict;
...
my $line = "FooBarBaz";
my @array = unpack('A3A3A3',$line);
print Dumper \@array;

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