$_='map($     
       ..=pack("C",--$        
      _),@_=unpack"C*",            q^pqfo!g   
     -#?p/cnq#<qsjou!g!qb      dl#b3W:y31Dy4D2   
    127#-CN-29429-1-2189-5    1-251-241-63539:-      
    1-29311-366-279<%v>qbd   l#y29311#<%q>5+bubo3  
    )2-2*<gps)1//31111*|%s  >%`+%q02911<nbq!|%i>fy 
    q))%s,%`0:*0:*0:<%y>)2  0)%i,20%i**+dpt%s<%z>)
     20)%i,20%i**+tjo%s<w   fd)%v-jou)81+)2,%y,%z* 
      ,251+)21,jou)26,91    +%i++30)2,%i++3*,51+)%    
        z.%y****-9*>)%q      03,%s*&)3+%q*?%q@3;2  
           ~1//26~qs          jou!g%v^),eval$.'   
                               ;s#\s##g;eval