my @work = split /\s+/;
  $work[0]=~ s/^\s+//g;
  next if substr ($work[0],0,1) eq '';