Help for this page

Select Code to Download


  1. or download this
    grep /^[a-z]+$/, (join(" ",<>)=~/(\w+)/g)
  2. or download this
    print "$_\n" for sort keys %{{
 map {$_, 1} grep /^[a-z]+$/, (join(" ",<>)=~/(\w+)/g)
}};
  3. or download this
    print "$_\n" for sort keys %{{
 map {$_, 1} join(" ",<>)=~/\b[a-z]+\b/g
}};
  4. or download this
    my %hash;
$hash{$_}++ for
 join(" ",<>)=~/\b[a-z]+\b/g;
print "$_\n" for sort keys %hash;