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