Magic Decoder Rings: More Than One Way To Do It (Score 2)

perl -e 'eval(pack(q(b*)=>join(q()=>grep{tr/()/01/;} split(//=> q+)()()))(()))())((()(())()()(())(())(())(((((()(( (()(()(())))()(())()))((((((()(((()(()(( )))))()(((((()(()())))((((((()(((())))((()))))(()) ()))((((((()(())(()))())))()((((()()(()) ())()((((())(()((())(()()))()())())))(((()))(()()) )))()(()()(())))()(((((()))(()(()))()(() ())(()))())((()()))(((((()(((((()))()(((())())((() )())()())(((()()(()))(()((()(((()(((())) (()))(()(((())()(((()(()(()((())(()(()()(())))()(( )))(())()()(())())()))((+))));'