#!perl
use CGI;
$query = new CGI;
$source = $query->param('input');
print $query->header;
$source =~ m/(\d{1,2})(\/|\-)(\d{1,2})(\/|\-)(\d{2,4})/g;
my $day = $1;
if($day == 1,21,31){
$day = "$day\st"
}elsif($day == 2|22){
$day = "$day\nd"
}elsif($day == 3|23){
$day = "$day\rd"
}elsif($day == 4-20|24-30){
$day = "$day\th"
}
print "$day";