Select Code to Download

#!/usr/bin/env perl -l

...
my @chunks; 
push @chunks, join '' => @chars[$_ .. $_ + 3] for 0 .. length($string)
+ - 4;
print "@chunks";

0123 1234 234a 34ab 4abc