Perl isn't always the best tool for the job. Try this from the shell:

find -type f -maxdepth 2 -path './vn[1-6]*' -exec rm {} \;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print