if ($options(C) && grep /line/,@array)
{
print $line;
}