$/=$\;
while(<>){
//;$f=@-[1];($%,$r)=map{y///c
}/(.{0,$f})\bX+?\b(.*)$/;($a,$b)=map{y///c
}/[^~]*^(?(?=(.{$%,$f}X
)).{$f} *|.{$f} *X(.*)).{$r} /m;$a=$
%if!$a||$b;$b+=$r;s/(?<=.{$a})\b *\b(?=.{$b})/"~"x
length($&)/ge
}
JC89JFw7CndoaWxlKDw+KXsKCQpzLy4qKEYpLioKLy87JGY9QC1bMV07KCQlLCRyKT1tYXB7eS8vL2N9LyguezAsJGZ9KVxiWCs/XGIoLiopJC87KCRhLCRiKT1tYXB7eS8vL2N9L1tefl0qXig/KD89KC57JCUsJGZ9WCkpLnskZn0gKnwueyRmfSAqWCguKikpLnskcn0KL207JGE9JCVpZiEkYXx8JGI7JGIrPSRyO3MvKD88PS57JGF9KVxiICpcYig/PS57JGJ9KS8ifiJ4IGxlbmd0aCgkJikvZ2UKCjtwcmludDsKfQ==