Fix issue #48, missing '\' on '\s' perl regexp