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