my @items;
for my $record (@records) {
    my %item = ();
    for my $tag ($record->children) {
        $item{$tag->name} = $tag->text
    }
    push @items, {%item};
}

##</code><code>##

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;
}