$str= $config{startblock};
$str =~ s#(\\*)([$@])#$1."\\"x(1&length$1).$2#ge;
$str = eval "qq\@$str\@";