Flag cost-free operations

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-096/wlmb/perl/ch-2.pl b/challenge-096/wlmb/perl/ch-2.pl
index 3ad00b6cae..fa59046592 100755
--- a/challenge-096/wlmb/perl/ch-2.pl
+++ b/challenge-096/wlmb/perl/ch-2.pl
@@ -51,7 +51,7 @@ my ($i, $j)=($from_size, $to_size);
 while($i>0 || $j>0){
     my $operation=$operations->[$i][$j];
     if($operation eq 'k'){
-	unshift @operations, "Keep $from[$i-1]";
+	unshift @operations, "(Keep $from[$i-1])";
 	--$i;
 	--$j;
 	next;
@@ -72,7 +72,7 @@ while($i>0 || $j>0){
 	--$i;
 	next;
     }
-    die "Wrong operation!";
+    die "Wrong operation!"; # Shouldn't happen
 }
 
 say "Inputs: \"$from\" -> \"$to\"\nOutput: $total_cost\n";