http://www.perlmonks.org?node_id=11136374

justin423 has asked for the wisdom of the Perl Monks concerning the following question:

is there a script that will zip all files in a drive with a predictable filename, then delete the original?
e.g.
all files end in FILENAME.GxxxxV00 with the 4 X's as numbers.
Is there a little utility that will scan the entire drive for those files and then zip them up with the number retained and the V00 converted to the file extension .zip e.g. FILENAME.Gxxxx.zip and then delete the original file to create space on the drive.
this seems like something that Perl was built for.