$ perl 1202470.pl
P007b_Yum
P007B_YUM
P007b_yum
P007_Yum
P007_YUM
P007_yum