m{http:// (S+) }

You put whitespace around the capturing group (perhaps you meant to use the /x modifier?) and you forgot the backslash on the \S.

Perhaps you want to use Regexp::Common::URI::http or URI instead of making your own regex.