use Scalar::Util qw( looks_like_number );

die("Invalid amount of Gil \"$gil\"\n")
    if !looks_like_number($gil);

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