perl -pi.bak -e'BEGIN{$testname="whatever"} s!([^/]+\.data)\b!$testname/$1!g' output.txt