#!/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";
