use strict; use warnings; use Encode; binmode( STDIN, ":utf8" ); binmode( STDOUT, ":utf8" ); while( my $char = <> ) { chomp $char; my $lc_char = lc( $char ); print "lowercased $char=$lc_char\n"; }