Grep

#!/usr/bin/perl -w

use strict;

my $pattern = shift;

while(<>) {
  print if(/$pattern/);
}
#!/usr/bin/python

^H^H^H^H^H^H^Herl