sub cleanup ($) {
    my $work = shift;
    $work =~ s/\r|\n//g;        # Cleanup Carraige Returns
    $work =~ s/, / /g;        # Cleanup Comma Space
    $work =~ s/,/ /g;        # Cleanup Comma
    $work =~ s/"//g;        # Cleanup Parentheses
    $work =~ s/^\s+|\s+$//g;    # Trim spaces
    $work =~ s/([^[:ascii:]]+)/unidecode($1)/ge;
    return $work;
}