There is. It's called Date::Manip. The code would look something like this:

$date = ParseDate($string);
print UnixDate($date,"%Y_%m_%d_%H_%M_%S");
[download]