http://www.perlmonks.org?node_id=1069499


in reply to Re^2: Not getting desire output by using switch statement in Perl
in thread Not getting desire output by using switch statement in Perl

Easy. See ord:
if ($a =~ /[a-z]/) { print ord($a) - 96; } else { print "Everything else"; }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ