#!perl -p0
s#^$i\K(`|$)# ${/^$i[^`]/m}#mgwhile$i.='.',/$i./