Select Code to Download

#!/usr/bin/perl 
use 5.010_000;
...
Hey, diddle, diddle,
The cat and the fiddle,
The cow jumped over the moon.

Number of chars: 75
Number of words: 14
Number of lines: 3
heydiddlediddlethecatandthefiddlethecowjumpedoverthemoon

push @words, map { lc } # change to lower case
    map { tr/'//d; $_ } # remove apostrophes
    split /[\s.,?!"]+/, # split on space and punctuation
    $line;