perl -pi.bak -e 's/sequence.V5_0/sequence.V6_3/ if $old =~ /StrCatDone. .1./; $old=$_ ' data.dat