sub _clean_value {
    local $_ = shift;
    s/\&lt;/\</ig;
    s/\<.*?>//ig;
    $_;
}