my ($p, $l, $o, $g, $s) = split( /\s+/, $lsl );