use strict;
use warnings;

my $lines2 = " PERIOD 13 OCT 06 OCT";
my @date = map ucfirst lc, split ' ', $lines2;

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

##</code><code>##

Oct 06 and Oct 13