#/usr/bin/perl my $timeLimit = ''; $timeLimit =~ m/startTime="(.*?)"/g; my $startTime = $1; chomp($timeLimit); if ($timeLimit =~ m/endTime/) { $timeLimit =~ m/endTime="(.*?)"/g; my $endTime = $1; chomp($endTime); } print "[$startTime],[$endTime]\n";