If you're having the space problem;
Delete the spaces between | and /g in the last line:
"alias htmlfree { return $regsubex($1-,/(^[^<]>|<[^>]>|<[^>]*$)|&[^;]+;| /g,$null) }"
should be:
"alias htmlfree { return $regsubex($1-,/(^[^<]>|<[^>]>|<[^>]*$)|&[^;]+;|/g,$null) }"