if($seq=~/.*?([I|O])(U+)$/) 
{ 
  $char2=$1;
  $part_to_change2=$2;
  $len2=length($part_to_change2);
  substr($top, -$len2, $len2, ($char2 x $len2));			 
}