perl -F\t -lape "$F[4] =~ s/.*y.*/yes/; print $F[4], \"\n\";" results.txt