Help for this page

Select Code to Download


  1. or download this
         50     my @words = @{+shift};

     72             foreach my $word (@words) {

     95             foreach my $word (@words) {
  2. or download this
         50     my $words = shift;

...

     95             foreach my $word (@$words) {
  3. or download this
        118         substr((my $pat = $word), $i, 1) = '.';
  4. or download this
        118         substr my $pat = $word, $i, 1, '.';