$data=~s/<.*?>//g;
$data=~s/&lt.*?&gt//g;