#!/usr/bin/perl
use re "debug";

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