Well, the code is from a script that for an input file, translates a string found in a set of strings ($in) to a corresponding string found in another set of strings ($out), which have been created elsewhere, with appropriate mappings. Example 1.4 from the Perl Cookbook. Sorry for not posting more code, just wanted clarification on those weird (now clear) \Q and \E switches.