sub get_date {
  my $string = shift;
  my $date = (split ' ', $string)[1];
  my ($d, $m, $y) = split '/', $date;
  return sprintf "%02d%02d%02d", $y, $m, $d;
}