perl -i.bak -lape '$F[4] =~ s/.*y.*/yes/; $_ = join "\t", @F' results.txt