GUID's are 128-bit integers, which perl has no built-in mechanism for handling. I don't know much about VB but from the snippet you showed, it seems that it does know how to manipulate these mathematically.

However, do not dispair:). As usual, perl does have a package to deal with this. Math::BigInt to the rescue.

use Math::BigInt

my $guid = Math::BigInt->new( '0x0420060000000000C000000000000046' );

print $guid;
5483187177070399899585805862446301254

print $guid & 0x8083;
2
[download]