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

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

$testString =~ s/^\s+//; #remove leading spaces
$testString =~ s/\s+$//; #remove trailing spaces

print "Removed L/T: $testString\n";

$testString =~ s/\s//g;

print "Removed ws: $testString\n";

$maskResult = $testString & 400000000000000000000000;

print "Mask Result: $maskResult\n";