);
$value =~ s/<(([^ >]|\n|\s\w)*)>/ /gso;
print $value;
####
$value =~ s{&}{&}gso;
$value =~ s{"}{"}gso;
$value =~ s{ }{ \ }gso;
$value =~ s{<}{<}gso;
$value =~ s{>}{>}gso;
$value =~ s{\)}{)}gso;
$value =~ s{\(}{(}gso;
$value =~ s{\t}{ \ \ \ }gso;
$value =~ s{\n}{
}gso;
print $value;