Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;  
...
cancel 1
declArE 2
pal 0
  2. or download this
    my @words = ("anyone", "cancel", "declArE", "perlmonks", "pal");
print "$_: ",tr/eE//, "\n" for grep{tr/aA//;}@words;
  3. or download this
    words = ["anyone", "cancel", "declArE", "perlmonks", "pal"]
print(*((word,word.upper().count('E')) for word in words if 'A' in wor
+d.upper()))