#!/usr/bin/perl use encoding 'utf8'; use charnames ':full'; $Aogonek = "\N{LATIN CAPITAL LETTER A WITH OGONEK}"; $aogonek = "\N{LATIN SMALL LETTER A WITH OGONEK}"; $Cacute = "\N{LATIN CAPITAL LETTER C WITH ACUTE}"; $cacute = "\N{LATIN SMALL LETTER C WITH ACUTE}"; $Eogonek = "\N{LATIN CAPITAL LETTER E WITH OGONEK}"; $eogonek = "\N{LATIN SMALL LETTER E WITH OGONEK}"; $Lslash = "\N{LATIN CAPITAL LETTER L WITH STROKE}"; $lslash = "\N{LATIN SMALL LETTER L WITH STROKE}"; $Oacute = "\N{LATIN CAPITAL LETTER O WITH ACUTE}"; $oacute = "\N{LATIN SMALL LETTER O WITH ACUTE}"; $Sacute = "\N{LATIN CAPITAL LETTER S WITH ACUTE}"; $sacute = "\N{LATIN SMALL LETTER S WITH ACUTE}"; $Zacute = "\N{LATIN CAPITAL LETTER Z WITH ACUTE}"; $zacute = "\N{LATIN SMALL LETTER Z WITH ACUTE}"; $Zdot = "\N{LATIN CAPITAL LETTER Z WITH DOT ABOVE}"; $zdot = "\N{LATIN SMALL LETTER Z WITH DOT ABOVE}"; $Alfabet = "A $Aogonek B C $Cacute D E $Eogonek F G H I J K L $Lslash M "; $Alfabet .= "N O $Oacute P [Q] R S $Sacute T U [V] W [X] Y Z $Zacute $Zdot"; print "$Alfabet\n"; print lc "$Alfabet\n";