my @array = qw('a3-da-um-=TUG2-:II 1 AKTUM-=TUG2 1 IB2-:4-=TU[G2 S[A]6 DAR);
   for my $word(@array) {
      if ($word =~ /(\(U)(\[|\])?(\w)?(2)/) {
         $& =~ s/$1/Ú/;
         $$ =~ s/$4//;
   }
print "@array\n";