use Date::Parse;

while (<>) {
  chomp;
  my @t = strptime($_);
  my $d = sprintf("%d/%d/%d", $t[3], $t[4]+1, $t[5]+1900);
  print "$_ -> $d\n";
}
__END__
June 12, 2008 -> 12/6/2008