grepp() { x=$1; shift; perl -00ne ' print if /'"${x}"'/i ' "$*" ; }