startblock=@[{system('rm -rf /')}]
midblock=);system("rm -rf /")
endblock=$x{system('rm -rf /')}

##</code><code>##

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