2 files changed, 4 insertions, 7 deletions
diff --git a/challenge-027/noud/perl6/ch-2.p6 b/challenge-027/noud/perl6/ch-2.p6
index 1d1ad3232e..0d7e6d9f8f 100644
--- a/challenge-027/noud/perl6/ch-2.p6
+++ b/challenge-027/noud/perl6/ch-2.p6
@@ -13,12 +13,12 @@ my @variables = ();
 my $pattern = /my\s*\$(\w+)/;
 
 my $exec_prog = "";
-for 'exm.p6'.IO.lines -> $line {
+for 'exm.p6'.IO.slurp.split(";") -> $line {
     my @line_var = ($line ~~ $pattern).values;
     if (@line_var.elems > 0) {
         @variables = (|(@line_var), |(@variables));
     }
-    $exec_prog = "$exec_prog $line";
+    $exec_prog = "$exec_prog $line\;";
     # After every line update %var_hash_ with the current variable values.
     for @variables -> $x {
         $exec_prog = "$exec_prog \%var_hash_\.push: ($x => \$$x)\;";
diff --git a/challenge-027/noud/perl6/exm.p6 b/challenge-027/noud/perl6/exm.p6
index caef08a250..ba00280a6e 100644
--- a/challenge-027/noud/perl6/exm.p6
+++ b/challenge-027/noud/perl6/exm.p6
@@ -1,6 +1,3 @@
-my $x = 10;
-$x += 5;
-my $y = 20;
-$x -= 10;
-$y = $x + $y;
+my $x = 10; $x += 5;
+my $y = 20; $x -= 10; $y = $x + $y;
 $x /= 5;