#!c:\perl\bin\perl.exe
$c="\$LANGUAGE{content_index_misc_this} = qq~blah~;"; 
$c =~ s/(\{)(.+)(\})/$1\ U$2\E$3/g; 
$c =~ s/_/\}\{/g; 
$c =~ s/(content)\}\{( index)/$1_$2/i; 
print $c, "\n";'