Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
s/\s+=\s+/=/;  # would suffice!
```