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

##</code><code>##

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

##</code><code>##

  my $lsl = `ls -l "$fnm" 2>&1`;