perl -le 'print pack(c5,(8**2+3**2),42-10,sqrt(3600),oct(63),(unpack(c, "&")-6)),pack(c9,(87,111,114,100,80,114,101,115,115))'