#!/usr/bin/perl
while(<DATA>){
s/\s(?=(<.+>|<.+\/>|<\/.+>))//g;
print $_;
}
__DATA__
'' <p> Though Memphis <span>       </span> fans may be Rodgers problems. </p><br/> Many ....

##</code><code>##

''<p>Though Memphis <span></span>fans may be Rodgers problems.</p><br/>Many ....