Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
      
    ...
    
            $count ++;
    }
    
  2. or download this
    anyone: 1
    cancel: 1
    declare: 2
    
  3. or download this
    perl -e 'for('anyone','cancel','declare','perlmonks'){$i=()=/e/g;print
    +"$_: $i\n"if(/a/);}'