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