my @tt   = $temp =~ m/(I)/;