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


in reply to Automatic zip and delete

Totally untested and very possibly very dangerous :)

find . -type f -name '*V00' | perl -nle '/(.*)V00\z/ and system "zip $ +1.zip $_" && rm $_'