gistfile1.txt

#!/usr/bin/env perl

use Modern::Perl;

my @op = ('+', '-', '');

for my $i (0..3**8-1) {
    my $str = "1";
    for my $k (0 .. 7) {
        $str .= $op[($i/(3**$k)) % 3].($k+2);
    }
    my $sum = eval $str;
    print "$str = $sum\n" if $sum == 100;
}