if ($test =~ m/^\Q$test1\E\z/) { ... }