...
my $fc = DateTime::Format::CLDR->new(
    pattern     => q{yyyy-MM-dd'T'HH:mm:ss.SSS},
);
my $date  = $fc->parse_datetime( '2013-01-18T18:27:22.850' );
say 'huh? ', $fc->format_datetime( $date );
say 'huh? ', $parser->format_datetime( $date );
exit 0;
__END__
130030072428507103
2013-01-18T18:27:22.000
huh? 2013-01-18T18:27:22.850
huh? 130030072428500000