my ($p, $l, $o, $g, $s) = ($lsl =~ 
      /^(.*?)\s+(.*?)\s+(.*?)\s+(.*?)\s+(.*)$/);