#!/usr/bin/perl

$re = shift(@ARGV);

$found = 0;

while (<>) {
    if (/$re/) {
	print;
	$found = 1;
    }
}

if ($found) {
   exit(0);
} else {
   exit(1);
}
