perl -i.bak -F\t -lane "$F[4] =~ s/.*y.*/yes/" results.txt