use utf8; binmode STDOUT, ':encoding(UTF-8)'; print join '', reverse "Réaliste" =~ m/\X/g;