while (<$hh>) {
    $_ =~ s/($check)/$hash{$1}/gi;
    $_ =~ s/[^[:ascii:]]+/ /g;

    # $_ =~ s%<br>%%;
    say "default is $_";
    $text = $text . $_;
  }