#!/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";