+% eval "use DateTime::Format::Strptime;";
+% die $@ if $@;
+% my $conf = new FS::Conf;
+% my $format = $conf->config('date_format') || "%m/%d/%Y";
+% my $parser = DateTime::Format::Strptime->new(pattern => $format,
+% time_zone => 'floating',
+% );
+% $new->setfield('birthdate', $parser->parse_datetime($1)->epoch);