$_='+$+[+]++@+{+}++%+[+++]+++*++\++\+++++++++++++++++++++++@+++++++++'
.'+++++++++++++++++++(++++++++++++++)++++++++++++++++++++++++++++++++'
;;$/='+';while($_){$c++while chomp;;push@c,$c;;chop}print pack'c*',@c[
unpack'a2'x25,'02151314000309101406051200110512080006030407051201987']