Select Code to Download

#!/usr/bin/perl
use strict;
...

my $test_string = 'x = (89 - 12)*( 1 + 2)';
parenth($test_string);