if (index ($_, "-I") == 1){
	{ print OUTFILE substr ($_, 0, rindex ($_, "\\")), "\n"; }
}