elsif (s{^$esc}{}) { o "$$esclitr$$esclitr" }
elsif (m{^(?=$caps_re)}) { o $var_prefix }
elsif (s{^\$([A-Za-z]\w+)}{}) { o "\$(${var_prefix}$1)" }
elsif (s{^$esc}{}) { o "$$esclitr$$esclitr" }
elsif (m{^(?=$caps_re)}) { o $var_prefix }
elsif (s{^\$([A-Za-z]\w+)}{}) { o "\$(${var_prefix}$1)" }