sorry i checked it for all cases but ity's true it's not working when it founds anyblankk line . so how to prevent that.really being first perl pro it seems tough to me but through help of you guys i started learning basics of perl.thanks.:)