$v=$"x25 .$/;$h=' H-O',print(@a,'H-O',map($h^=' 'x$_,/. /g),'-H '),@a=(($v^=s/.\W*/($@='\\')^$@x$&/ger).' H 'x6,' ',$v^=$@x6)for<>