use 5.010;
my $string = "abcFOOdefghFOOiFOOjklmFOOnopqrFOOstuvFOOwxyz";
say "Lengths are:";
say $_ for map { sprintf("%d ('%s')", length, $_) } split /FOO/, $string;