Help for this page
use warnings; use strict; ... sub zip { join "", sort { lc $a cmp lc $b} split "", $_[0] . $_[1]; }
23:44 >perl 1303_SoPW.pl AaBbCcDdEeFGHIJ 23:45 >