Re^2: regexp wizardry needed

[johngg]

my @date = map ucfirst, map lc, split ' ', $lines2;

I'm not sure why you are going with two maps, one would be sufficient.

$ perl -E '
> $line = q{PERIOD 13 OCT 06 OCT};
> say for map ucfirst lc, split q{ }, $line;'
Period
13
Oct
06
Oct
$

I hope this is of interest.

[Kenosis]

I'm not sure why you are going with two maps...

I didn't think of it, so this is certainly of interest. Greatly appreciate you sharing this, JohnGG!