can u just give me an example how to write the syntax with eq or ==.. I have to include a regex inside the string with eq..

Sorry, its kind of my thing to say Read perlintro

This isn't very helpful. What did you change when you edited the code? Have you tried going back to basic debugging to find out what's going wrong? See Debugging and Optimization from tutorials.

I am editing and uploading the updated code.. The code which u r seeing now is the updated one after editing..

The post I'm replying to doesn't have any code, if you have replaced the code in your first post in this tread you've just invalidated several responses to your original code. I'm sure you can see how confusing this thread will now look. My advice would be to change it back and post your updated code rather than replace what you had.

All that changing around won't help you. You need to learn programming, or at least some basic debugging skills. Following the points made in (for example) brian's Guide to Solving Any Perl Problem will also help.