$a=substr'---+---+---
   |   |   
'x3,12;vec($a,ord,8)=79+< 9>,print$a,$/for"
9	15"=~/./g