固定長データの読み込み


 unpackまたは、マッチでできます。
use strict;
use warnings;

my $str = 'aBCdefGHIJ';

# 下記のどちらでも $str を1,2,3,4文字に分割したものを
# @aaa に格納します
my @aaa = unpack 'a1a2a3a4', $str; # unpack
#my @aaa = $str =~ /(.)(..)(...)(....)/; # マッチ

foreach my $val (@aaa) {
    print $val, "\n";
}

関連項目

unpack関数