my $fullname = 'D:/test/x++/stream.h';
my $file_name =   'test/x++/stream';
$fullname =~ s{$file_name.+}{teststring}gmxi;