Help for this page

Select Code to Download


  1. or download this
    $ perl -E 'my $x = "A(B"; $x =~ s/\(/</; say $x'
A<B
  2. or download this
    $ perl -E 'my $x = "A(B"; $x =~ y/(/</; say $x'
A<B
  3. or download this
    $ perl -E 'my $x = "A(B"; $x = join "<", split /\(/, $x; say $x'
A<B
  4. or download this
    $ perl -E 'my $x = "A(B"; substr $x, index($x, "("), 1, "<"; say $x'
A<B