On Thu, 31 Jan 2002 22:10:03 -0500, Michael G Schwern wrote:

>$date =~ s{(.*)}{sprintf '%02d/%02d/%d', split '/', $1}e;

     $date =~ s{(\d+)/(\d+)/(\d+)}{sprintf '%02d/%02d/%d', $1, $2, $3}e;
        
-- 
        Bart.

Reply via email to