my $success = ( system("grep $searchpat $file >/dev/null") ) ? 0 : 1;