Select Code to Download

my @items;
for my $record (@records) {
...
    }
    push @items, {%item};
}

sub cleanup ($) {
    my $work = shift;
...
    $work =~ s/([^[:ascii:]]+)/unidecode($1)/ge;
    return $work;
}