while (<>) { while ( /\bit (.*?)[.?!]/ig ) { print "\n$1\n"; } } #### manually till April 1996 was happily feeding modules through to the CPAN archive sites made sense for the module listing part of the Module List to be built from that database