foreach $token (@newtokens) {
  $token =~ s/\@\@\@\@ ~~~~/ /sig;
  foreach $tag (@tags) { $token =~ s/~~~~(\/*.*?)\@\@\@\@/<$1>/sig; }
}