Help for this page

Select Code to Download


  1. or download this
    use 5.010;
my $string = "abcFOOdefghFOOiFOOjklmFOOnopqrFOOstuvFOOwxyz";
say "Lengths are:";
say $_ for map { sprintf("%d ('%s')", length, $_) } split /FOO/, $stri
+ng;