#!perl -p0
$a|=$&^$&while/(^[^`
]+)`?/mg||s//$1|$a/eg*y;\0;