while (<FIL>) 
{
print FIL "/* I opened you on $now for bracket check*/
...
}