use Date::Manip;

my $result = ParseDate('20231024 020045');

print $result;