$x = '<act aid = "s">'; $x=~s/<([^>]*)>/'<'.${($_=$1)=~s|\s*\=\s*|=|gsi,\$_}.'>'/egsi; print $x;

##</code><code>##

s/\s+=\s+/=/;  # would suffice!