#!/usr/bin/perlsub f{join'',sort{lc$a cmp lc$b}pop=~/./g}$_="azGHjkфывапролджэФЫВАПРОЛДЖЭIubr";print f($_)
Standard input is empty
abGHIjkruz��������������������������������������������
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!