Select Code to Download

#!/usr/bin/perl

...
  $target > 0 && $from =~ s/\d+// or return ();
  uniq find( $target - $&, $from, "$have+$&"), find(  $target, $from, 
+$have );
  }

1+99
2+40+50+3+5
...
5+5+5+5+80
5+5+10+80
5+15+80