perl -nle"print /(DOG)/ ? $1 : 'Not found'"