Select Code to Download

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