LOL:). One more to my colllection of "expect the unexpected".

My 1st guess out of jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec
was "may",
second - "dec",
and only 3d - "oct"
(note that I don't Perl).

Imagine:

may $foo == $bar;
then $awk = sep($foo, $bar, 18) unless oct(18) eq int("2".dec("2.00000
+0)")
[download]

:-).