open (FIN, "test.txt")|| die ("test.txt does not exists");
undef $/;
$instr = <FIN>;
$instr =~ s|/prj/sw/tool|/prj/vlsi/toolsmodule|si;
print "$instr";