Select Code to Download

use Scalar::Util qw( looks_like_number );

...
die("Invalid character name \"$char\". "
   ."It must only contain letters [a-z])\n")
    if $char !~ /^[a-zA-Z]+\z/;