sub trim {

  my @out = @_;
  for (@out) {

     s/F15-19/F\t15-19/;
     s/M1-4/M\t1-4/; 
     s/85+/85\t115/; 
     
     s/M\s/M\t/; 
     s/F\s/F\t/; 
     s/-/\t/; 
     
  }
  return wantarray ? @out : $out[0];
}