use WWW;
use DOM::Tiny;
use Text::CSV;
use URI::Encode;
use HTTP::UserAgent;

my @terms = "listredo.txt".IO.lines.map: *.subst(:g, " ", "+").&uri_encode;

for @terms -> $term {
  my ($id,$termname) = $term.split(",");
  say $termname;
}