my $line = 'x' x 22; 
my $len  = length($line);
my $size = 4;
my $pos  = 0;

while ( my $s = unpack("x$pos A$size", $line) ) { 
    print "<$s\t>\n";
    $pos += $size;
    last if $pos >= $len;
}