@e="HeH LiBeB C N O F NeNaMgAlSiP S ClArK CaScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPuamCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnutuqupuhusuo"=~/../g;%s=(1,119,4,95,12,95,20,55,38,55);for(@e){$i++;$a.=$/="+---";$b.=sprintf"|%3d",$i;$c.=sprintf"|%3s",/u./?U.$_:$_;$s=$"x$s{$_=$i}and$a.="+$s",$b.="|$s",$c.="|$s";print"$a+
$b|
$c|
"and$a=$b=$c=''if/^(2|10|18|36|54|86|118)$/}print$/x 32,'+'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).