Select Code to Download

#!/usr/bin/perl -w
# File displayPipeTracer2.pl
...
   my $maskResult = $testString & 0x400000000000000000000000;
   print "Mask Result: $maskResult\n";
}

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

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