#!/usr/bin/perl -w 
 
@files = glob("\\my_server\s$\Program"]\\my_server\s$\Program Files\direc1\direc2\direc3\Proofview.*\direc4\direc5.*"); 
 
foreach $file (@files) { 
        if(unlink($file)) { 
                print "$file deleted\n"; 
        } 
}