Select Code to Download

my %priorities = {  '+' => 1,
                    '-' => 1,
                    '*' => 2,
                    '/' => 2 };

"2 3 4 * 5 / +"  --> 2 + 3 * 4 / 5
"3 4 * 5 / 2 +"  --> 3 * 4 / 5 + 2
"3 4 5 / * 2 +"  --> 3 * 4 / 5 + 2
"2 3 + 4 * 5 /"  --> (2 + 3) * 4 / 5

my $o = (   ',' => 1,
            'j' => 2 );

"_ just another , perl , hacker , j"  =>  
   "_ j ( just , another , perl , hacker )"