Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
               [ grep substr($string, $s_pos + $_, 1) eq 'x',
                      @$positions ]);
    }