use utf8; # UTF-8 code use open ':std', ':encoding(UTF-8)'; # UTF-8 terminal use 5.012; $_ = "LES MISÉRABLES"; s/([^\x00-\x7F])/lc($1)/eg; # LES MISéRABLES say;