my $t = Time::Piece->strptime("Friday 24rd Mar, 2017", "%A %drd %b, %Y");
 
print $t->strftime("%a %b %d %H:%m:%s %Y");