I was doing it that way only.But my code looks quite lengthy.Is there any regular expressions by which i can achieve it.I am not that experienced in Perl so wanted to know if we can achive it in a short way.