my @abbrs   = qw( Ut ); 
my @strings = qw( abcd<Utly> );
for $abbr ( @abbrs ) { 
    for $str ( @strings ) { 
        $str =~ s/<$abbr(.*)>/<$abbr>/; 
    }
}