$ perl -e'
   use feature qw( say );
   use Sort::Key::Natural qw( natsort );
   say for natsort qw( HC_TalkRoar_1 HC_TalkRoar_1b );
'
HC_TalkRoar_1
HC_TalkRoar_1b