if ($thedate =~ /1$/) {
      $suffix = "st";
    } elsif ($thedate =~ /2$/) {
      $suffix = "nd";
    } elsif ($thedate =~ /3$/) {
      $suffix = "rd";
    } else {
      $suffix = "th";
    }