#!/usr/bin/perl -w
use strict;
use Date::Manip;
use HTML::TreeBuilder;
my $htm = '
14th
August 2017, 21:07 #1937
';
my $tree = HTML::TreeBuilder->new_from_content($htm);
my $postdate = $tree->look_down('class','date')->as_text();
print "postdate: $postdate\n";
print "postdate parsed: ",ParseDate($postdate),"\n";
my $timestamp = '14th August 2017, 21:07';
print "string parsed: ",ParseDate($timestamp),"\n";