#!/usr/bin/perl

use strict;
use warnings;

use POSIX 'strftime';
use Lingua::EN::Numbers::Ordinate;

my $date = strftime '%B %d, %Y', localtime;
$date =~ s/(\d+)/ordinate($1)/e;

print "$date\n"