use DateTime;
use DateTime::Format::Strptime;
my $strp = DateTime::Format::Strptime->new(on_error=>'croak',
	pattern => '%Y%m%d%H%M%S %z');
my $input = "20140623203000 -0400";
my $dt = $strp->parse_datetime($input);
print $dt->iso8601, "\n";
print "Weekday: ", $dt->day_of_week, " (", $dt->day_name, ")\n";