Use one of Regexp::Assemble/Regexp::Trie/Regex::PreSuf to assemble an efficient regex then make a single substitution pass

or $regex = join '|', map \&quotemeta, @tv;