$line="src/utility/include/abc.pl@@/main/f1/f2/1 
/main/f1/f3/f6/f7/3, /mian/1; 123\"\;";
print "TEST : .$line\n";

$line =~ s/\/main\/.*?(,|;|\"|\s)/%I%/g;
print "\nReplacing with %I% : $line\n";