s/$/|$_|$_
/,$,=y/ |/-+/r,print+($_ x"@-")x3for$"x<>