#!/usr/bin/perl -w
# File displayPipeTracer2.pl

my $testString = "          00008008 000000FF 00800000";
$testString =~ s/\s+//g;

my $maskResult = hex($testString) & 0x400000000000000000000000;
print "Mask Result: $maskResult\n";

##</code><code>##

Integer overflow in hexadecimal number at script.pl line 7.
Hexadecimal number > 0xffffffff non-portable at script.pl line 7.
Integer overflow in hexadecimal number at script.pl line 7.
Hexadecimal number > 0xffffffff non-portable at script.pl line 7.
Mask Result: 4294967295

##</code><code>##

#!/usr/bin/perl -w
# File displayPipeTracer2.pl

use bigint;

my $testString = "          00008008 000000FF 00800000";
$testString =~ s/\s+//g;
$testString = Math::BigInt->new("0x$testString");

my $maskResult = $testString & 0x400000000000000000000000;
print "Mask Result: $maskResult\n";