$1[0] = "Ut";
$2[0] = "abcd<Utly>";

foreach $thing(@1)
{
    foreach $thing2(@2)
    {
        if($thing2 =~ /\s*<$thing\s*>/)
        {
             $thing2 =~ s/$thing/$thing/;
         }
     }
}