#!/usr/bin/perl
     #    Improved simple_grep
     $regexp = shift;
     while (<>) {
         print if /$regexp/o;  # a good deal faster
     }