#!/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";