$ perl -e'
   use feature qw( say );
   use Sort::Naturally qw( nsort );
   say for nsort qw( HC_TalkRoar_1 HC_TalkRoar_1b );
'
HC_TalkRoar_1
HC_TalkRoar_1b