The following is cleaner.

$line =~ s{/main/[^,;"\s]*}{%I%}g;
[download]

It's a little different, but it'll behave the same if /main/ is always followed by one of the delimiters.