Select Code to Download

use 5.010;
my $string = "abcFOOdefghFOOiFOOjklmFOOnopqrFOOstuvFOOwxyz";
...
pop @portions;
say "Lengths are:";
say $_ for map { sprintf("%d ('%s')", length, $_) } @portions;