perlで、n文字ずつ分割する

3文字ずつ分割し、余った分もちゃんと取得する

my $line = "abcdefg";

my @list = $line =~ /.{1,3}/g;
for my $s (@list){
    print "$s\n";
}

abc
def
g

できた

my @list = $line =~ /.{3}/g;

とすると、3文字未満が捨てられちゃうので注意する