my               $content1=''&#22 x';
                 $content1=~s/\&(\#\d*[^;\d]+)/\&$1/gs; 
print '1:'.$content1."\n"; 

my               $content2=''&#22 x';
                 $content2=~s/\&(\#\d*[^;]+)/\&$1/gs; 
print '2:'.$content2."\n";