How do I convert a binary string to a number in Perl? -

मैं बायनरी स्ट्रिंग $ x_bin = "0001001100101" को उसके अंकीय मान <कोड में कैसे रूपांतरित कर सकता हूं > $ X_num = 613 पर्ल में?

  उप bin2dec {रिटर्न अनपैक ( "एन", पैक ("बी 32", सबस्ट्रेट ("0" x 32। Shift, -32))); }