*foo = \substr(1,0,1); \$foo =~ /^[H-N]/ and print "Ok!\n";