
$pattern = shift;
while (<>) {
  if (/$pattern/) {
    print;
  }
}







