Help for this page
$c=109;for(split//," / ... ++,+++++++++ +/ -------- -- -/ "){/\s/?():/[\-\+]/?eval"\$c$_$_":print chr($c)}