my $stuff = unpack('B64', $datagram);
print "This is data: $stuff\n";
##</code><code>##

Length : 1205
Length : 1205
Did not match!
This is data: 0000101001011100010101100100100101001111001111110010010001110110
Length : 1205
Length : 1205