if ($vartocheck =~ /\Q$firstchar\E/i) { ... }