$s=$t=<>;$_="\\
";print,s=^= = while$s--;s= .$=/\\=;print,s= /=/  = while$t--