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