sub _iso8601_rx {
    return '';
...

##</code><code>##

#!/usr/bin/perl -slw
use Date::Manip::Date;

$date = new Date::Manip::Date;

#use Devel::LeakTrace::Fast;

for (1..100e6) {
    $date->parse("2010-02-01 01:02:03");
}