URL shortening with short.io using AMPScript

URL shortening with short.io using AMPScript.vb

var @headerKey, @headerVal, @payload, @response, @unsubscribeURL

set @headerKey = "authorization"
set @headerVal = "<MyApi_Token>"
    
set @myLongURL = "https://mylongUrlDomain.com/?q=some_lenghty_query_param_value"
 
set @payload = Concat('{
        "allowDuplicates": false,
        "domain": "my.customdomain.com",
        "originalURL": "', @myLongURL, '"
    }')

HTTPPost("https://api.short.io/links", "application/json", @payload, @response, @headerKey, @headerVal)

set @myShortURL = RegExMatch(@response, '"shortURL":"(.*?)"', 1)