Select Code to Download

#!/usr/bin/perl
use Mojo::DOM;
...
print "19: @test2 (bad)\n";
my $test3=$dom->parse($text)->at('a.a.b')->text;
print "19: $test3\n";

18: 2016-05-18
19: 2016-05-18 2016-05-19 2016-05-20 2016-05-21 (bad)
19: 2016-05-19