#!perl -pa
$@="-"x s/.+/|$&|/g,s/^|\z/+$@+
/gfor($_=" 
")x"@F"