Select Code to Download

#!/usr/bin/perl
# -*- CPerl -*-
...

print "results:  (cost ",cost(@substrings),")\n";
print $_, "\n" for @substrings;