use Encode; my $n1 = 0; my $n2 = 0; # LIST ALL ENCODINGS available my @list1 = Encode->encodings(":all"); print "Complete list of supported encodings: "; foreach $item1 (@list1) { print $item1, " "; $n1++; } print "\nIn total $n1 encodings are supported by your Perl\n"; # LIST JAPANESE ENCODINGS used in the Encode::JP module my @list2 = Encode->encodings("Encode::JP"); print "List of supported Japanese encodings: "; foreach $item2 (@list2) { print $item2, " "; $n2++; } print "\n$n2 different encodings are supported by your Encode::JP module\n";