$somestring =~ /$character_tests{var1}Foo/;