#!perl -pl
$_="``$_+x";0while$t='(`(?1){2}|.)',s/`i|``k$t$t/$1/||s/`s$t$t$t/$1$3`$2$3/;$_=y;+;