my $d2 = "2019-12-29T12:34:56";
my $d1 = "2019-05-01T00:00:00";

say ($d2 lt $d1 ? "before" : "on or after");