use strict;
$testname="replacement";

open IN, "infile" or die $!;
open OUT, ">outfile" or die $!;

while ( <IN> )
{
    s:([\w\d]+\.data):$testname/$1:g
    print OUT $_;
}

close IN;
close OUT;