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