$ perl sort_lc.pl P007_yum P007_Yum P007_YUM P007b_yum P007b_Yum P007B_YUM