aydemir
11 lines
151 B
Perl
11 lines
151 B
Perl
use Turkish 'uc';
|
|
use Turkish 'lc';
|
|
|
|
use utf8;
|
|
binmode STDOUT, ':utf8';
|
|
|
|
print uc("abğıiüşç");
|
|
print "\n";
|
|
print lc("ABĞIİÜŞÇ");
|
|
print "\n";
|