$ perl -E 'my $x = "A(B"; $x =~ y/(/</; say $x'
A<B