my $record = "abcdefghijklmnopqrstuvwxyz";
my @bits = unpack 'A12 A3', $record;
print $bits[0]; # Gives 'abcdefghijkl'
print $bits[1]; # Gives 'mno'