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

my $reversed = reverse "(a+b)*c"; # or some longer sequence
$reversed =~ tr/()/[]/;
my $str = reverse $reversed;
say $str;

__END__

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