or download this
use strict;
use DateTime::Format::Flexible;
use DateTime::Duration;
...
2007-Jan-06 01:00:06 UTC (GMT +0000) - Poll: channel = TWO, refs = 595
+131400
2007-Jan-06 01:00:06 UTC (GMT +0000) - Poll: channel = TWO, refs = 659
+975924
2007-Jan-06 01:00:07 UTC (GMT +0000) - Poll: channel = THREE, refs = 5
+95148941