... use constant LEN => 3; ... my $offset = 0; my $length = LEN; while ( $_ = substr $ARGV[0], $offset, $length ) { last if length != LEN; $str .= $_ . $/; $offset += $length; } ...