Look at perlre as well for the /x modifier:

x Extend your pattern's legibility by permitting whitespace and comments.

It was used so that everything could be spaced out for clarity -- that's also why al the \s* are in there because when using /x you have to explicitly say when you actually want to match whitespace.