Select Code to Download

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

  Wed, 03 Nov 1943

#!/usr/bin/perl
# vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4:
...

my $u = Time::Piece->strptime( $str, $pattern, );
print "Time is:\n", $u->strftime( $pattern ), "\n";

$ perl ./tp_test.pl
Time is:
...
          "Wed, 13 Jan 2021 22:21:49 CST", "%a, %d %b %Y %T %Z") 
          called at ./tp_test.pl line 23
$

$ perl ./tp_test.pl
Time is:
...
Time is:
Wed, 13 Jan 2021 22:21:49 CST
$