use strict;
use Date::Manip;
 
my $string = "2004-11-15T18:59:52.863Z";
my $date = ParseDate($string);
print $date,"\n";