Select Code to Download

use strict;
use warnings;
...
my @date = map ucfirst lc, split ' ', $lines2;

print "$date[2] $date[3] and $date[2] $date[1]";

Oct 06 and Oct 13