$data =~ s/\s+/ /g;
  # Remove extra spaces to nothing
  $data =~ s/  +//g;