$seq =~ s{^(U+)}{"I" x length($1)}eg;
$seq =~ s{(U+)$}{"O" x length($1)}eg;