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

##</code><code>##

perl -ple"$_ = /(DOG)/ ? $1 : 'Not found'"