in reply to Regex question

yes. 

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

[download]
that \Q...\E is referred to as quotemeta. it's very useful.

.

In Section Seekers of Perl Wisdom