Help for this page

Select Code to Download


  1. or download this
    sub sub_iter {
      my ($s) = @_;
      return sub {$s?substr $s, 0, 1, '':undef}
    }