Borderizing Texts by teebee

s/ |$/ |$&/g,($a=$b="| $_
")=~s/\S./| /g,s/\S\S/ |/g,print$",_ x y/| -~/|_/,"
$a$b|_$_"for<>

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page