Help for this page
#!/usr/bin/perl -w use strict; use warnings; ... when ('z'){print "26";} default{print 'Everything else'} }