my $sNoLabel = substr($var, length("FILES CHECKED IN:"));
$sNoLabel =~ s/\s+/==/g;
print "MATCH$sNoLabel\n";

##</code><code>##

#move match start forward to after label
# g tells Perl to save the point where we stopped matching
$var =~ /^FILES CHECKED IN:\s+/g;

#capture label and move match start to after TEST
my ($sName) = ($var =~ /(\w+)/g);

#capture the remaining revision numbers (ignore S.txt)
my @aRevnums = ($var =~ /(\d+\.\d+(?:\.\d+)*)/g);

print "$sName: @aRevnums\n";