I haven't had a chance to test this, but how about:
 
####################################
 
use strict;
use warnings;
use File::Find;
find(sub{unlink if /,ST$/},"/my/directory/");
 
####################################

        -----Original Message----- 
        From: news on behalf of John Schmerold 
        Sent: Wed 1/28/2004 9:44 PM 
        To: [EMAIL PROTECTED] 
        Cc: 
        Subject: Regex command to remove deleted emails
        
        

        I'm trying to use the following to remove deleted emails (deleted emails
        have file names that end in ",ST"):
        

        <snip>

Reply via email to