my               $content1=''&#22 x';
                 $content1=~s/\&(\#(?>\d*)[^;]+)/\&$1/gs;