$_ =~ tr/()/[]/;