use DateTime::Format::Strptime;
my $strp = DateTime::Format::Strptime->new(on_error=>'croak',
	time_zone=>'UTC', pattern => '%a %b %d %H:%M:%S.%3N %Y');
my $dt = $strp->parse_datetime('Fri Mar 24 11:54:55.234 2017');
print $dt->format_cldr('EEE MMM dd HH:mm:ss.SSS yyyy'), "\n";

__END__

Fri Mar 24 11:54:55.234 2017