
function line_out = remove_crap(line) 


    line = regexprep(line, '[^&#; a-z蹁鳇0-9]', '', 'ignorecase');  
    line = regexprep(line, '&([^#a-z蹁鳇0-9])', '$1', 'ignorecase');  
    line = regexprep(line, '([^#a-z蹁鳇0-9]);', '$1', 'ignorecase');  
    % line = regexprep(line, '([^&][#a-z蹁鳇0-9]+);', '$1', 'ignorecase');      % for some stupid reason this does not work
    line = regexprep(line, '( [#a-z蹁鳇0-9]+);', '$1', 'ignorecase');  
    line = regexprep(line, '[ ]+', ' ');
        
    
    line_out = line;
    
    
end
