if ($tmp_buffer =~ /^<CASE-STUDY/i) {        
   $tmp_buffer =~ /<CASE-STUDY[^>]*><TOPIC-INFO><TITLE>([^<]*)<\/TITLE>/i;
   my($xtitle) = $1;
   $tmp_buffer =~ s/<CASE-STUDY([^>]*)>/<TOPIC ID="" HEADING-LEVEL="1"><TOPIC-INFO><TITLE>$xtitle<\/TITLE><\/TOPIC-INFO><CASE-STUDY$1>/i;
   $tmp_buffer =~ s/(<CASE-STUDY.*?<\/CASE-STUDY>)<\/INSERT-TOPIC>/$1<\/TOPIC>/si;
   print "debug - $&\n";
}