#/usr/bin/perl
use strict;
use warnings;
my $timeLimit = '<timeLimit endTime="2016-12-28T23:59:59" startTime="2016-09-30T00:00:00"></timeLimit>';
$timeLimit =~ m/startTime="(.*?)"/g;
my $startTime = $1;
chomp($timeLimit);
my $endTime ='';
if ($timeLimit =~ m/endTime/)
{
        $timeLimit =~ m/endTime="(.*?)"/;
        $endTime = $1;
}
print "[$startTime],[$endTime]\n";