my $t = Time::Piece->strptime("Sunday 3rd Nov, 1943",
                                "%A %drd %b, %Y");
 
  print $t->strftime("%a, %d %b %Y");