use Spreadsheet::ReadSXC qw(read_xml_string); #### use Unicode::String qw(utf8); print utf8(" '$cell_contents'")->as_string; #### Rougequeue de Güldenstädt => 'Rougequeue de Güldenstädt' #### Güldenstädt's Redstart => 'Güldenstädt's Redstart'
## use Unicode::String qw(utf8); print utf8(" '$cell_contents'")->as_string; ##
## Rougequeue de Güldenstädt => 'Rougequeue de Güldenstädt' ##
## Güldenstädt's Redstart => 'Güldenstädt's Redstart'