#!/usr/bin/perl -w

$pattern = shift @ARGV;

foreach $match (<>) {
  print $match if $match =~ /$pattern/;
}
