$foo = *bar; \$foo =~ /^[A-G]/ and print "Ok!\n";