#!/usr/bin/perl

$test1 = " *0001 002555 FF90 000018    1 ws.where1:000    ws.whatwhere:34B
";
$test2 = "   0050 000752 BF10 000018      sp.sleep:066     sp.spoolout:086
";


test_parse($test1);
test_parse($test2);



sub test_parse {
	my $in = shift;

 if (($line, $pcb, $pcbstat, $absbase, $stat, $stack, $stackret) = $in =~ /^\s*(\S+)\s+(\w+)\s+(\w+)\s+(\w+)\s+(\w+)?\s+(\S+:\w+)\s+?(\S+:\w+)?\s*?$/) {
#       line   pcb    pcbstat  absbase  stat   stack stackret

                print "Match: line: [$line] pcb: [$pcb] absbase: [$absbase] stat: [$stat] stack: [$stack] stackret: [$stackret]\nIn: [$in]\n";
		print "----------------------------------------------------------------------------\n";
        }
}