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

use warnings;
use strict;
use Math::BigInt;

my $testString = "          00008008 000000FF 00800000";
print "Original: $testString\n";

$testString =~ s/\s//g;
$testString =~ s/^/0x/g;

my $big_x = new Math::BigInt($testString);
my $big_y = new Math::BigInt("40000000_00000000_00000000");
my $big_result = $big_x->band( $big_y );

print $big_x->as_hex(), " & ", $big_y->as_hex(), "\n";
print "Mask Result: ", $big_result->as_hex(), "\n";