Re^2: Natural Sort / Windows sort problem

Select or download this

   use feature qw( say );
   use Sort::Key::Natural qw( natsort );
   say for natsort qw(     P007B_YUMYUMNOISESANDTASTING1 P007_YUMYUMNO
+ISESANDTASTING5A P007_YUMYUMNOISESANDTASTING5B 007_YUMYUMNOISESANDTAS
+TING5C );
   say for natsort qw( P007b_YumYumNoisesAndTasting1 P007_YumYumNoises
+AndTasting5A P007_YumYumNoisesAndTasting5B P007_YumYumNoisesAndTastin
+g5C );

Select or download this

P007B_YUMYUMNOISESANDTASTING1
P007_YUMYUMNOISESANDTASTING5A
...
P007_YumYumNoisesAndTasting5B
P007_YumYumNoisesAndTasting5C
P007b_YumYumNoisesAndTasting1

Select or download this

P007b_yumyumnoisesandtasting1
P007_yumyumnoisesandtasting5a
P007_yumyumnoisesandtasting5b
P007_yumyumnoisesandtasting5c

Select Code to Download