Hallo frank,
dein Ansatz mit
@bloecke=split /(.{4})/,$string;
ist doch schon sehr gut. Die leeren Elemente kannst du ganz einfach mit grep raus werfen:
my @bloecke = grep {$_ ne ""} split(/(.{4})/,$string);
Mehr Informationen zu grep: perldoc -f grep
Schöne Grüße,
Norbert Klein