Help for this page

Select Code to Download


  1. or download this
    my (%count);
    
  2. or download this
    undef $/;
    
    ...
        $count{'vow'}++ if(/[aeiou]/);
        $count{'sen'}++ if(/\./);
      }