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