...
use Date::Manip;

  if (/>Updated: (.*?)</ && $date = ParseDate($1)) {
    &do_something_with($date);
  } else {
    warn "no parsum date!\n";
    &fail_gracefully;
  }