perl -l -n -e 'print $1 if /(\w+ear)/' some.txt