perl -npi.bak -e "s:([\w\d]+\.data):testname/$1:g" infile