$line =~ s!/main/.*?(?=[,;"\s]!%I%!g;