Select Code to Download

#!/usr/bin/env perl

...
It takes a hour to win an honorable mention.
Calling him a umpire is a euphemism.
This is a united front against a evil empire.

while (<DATA>) {
    while ( /\b ((an?) \s\W* (\w+))/gx ) {
...

__DATA__
Suitable for a (older) child or an 'early adult'.