note
Kenosis
<p>Perhaps the following will be helpful:</p>
<c>
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]";
</c>
<p>Output:</p>
<c>
Oct 06 and Oct 13
</c>
<p><strong>Update:</strong> Removed an unnecessary <c>map</c>. Thanks, [http://perlmonks.org/index.pl?node_id=401112|johngg]!</p>
1015371
1015371