my ($source_cont) = $CtRet =~ /^source cont=(.*)/m
   or die("Didn't find source cont\n");

##</code><code>##

my ($source_cont) = $CtRet =~ /^source cont=("[^"]*")/m
   or die("Didn't find source cont\n");
$source_cont =~ s/\n/ /g;