I have 20 zipped files text files named as pm.xxx (where xxx are the different city codes) under a particular directory. I want to write a perl program which will take the input files pm.xxx (one-by-one)from that directory, unzip the file, take the city code as reference variable, find the number of time a particular text is found,then again zip back the file and after that unzip the next file and so on. Please help me how to go about it.