use charnames ':full'; my $str = "Th\N{LATIN CAPITAL LETTER A WITH CIRCUMFLEX}t \N{LATIN CAPITAL LETTER A WITH CIRCUMFLEX}pple";