my @values;

while (<>) {
	my $line     = $_;
	my @elements = split( /\s/, $line );
	for ( @elements ) {
		if ( /(-I.:.*)/ ) { push (@values, $1) };
	}
}
for ( @values ) { print "$_\n" };