$ perl -E 'my $x = "A(B"; $x = join "<", split /\(/, $x; say $x'
A<B