in reply to Date parsing

why not: $date =~ s/(:.*):.*/$1/g; ?? -malloc

In Section Seekers of Perl Wisdom