#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $test = "(a+b)*c";
$test =~ tr/()/[]/;
say $test;

__END__

$ perl test.pl
[a+b]*c