Help for this page
use MIME::Base64; ... $encoded .= '=='; $num = unpack("V", decode_base64($encoded)); print($num, $/); # 123
use MIME::Base64; ... $encoded = substr($encoded.'AAAAAA', 0, 6) . '=='; $num = unpack("V", decode_base64($encoded)); print($num, $/); # 123