grep{print "miney\n"; print "moh\n";} 1 if $cond;