fix rosalind/mprt-grondilu.pl on Rakudo 2018.12+ bleed

Author: dwarring

categories/rosalind/mprt-grondilu.pl

@@ -42,11 +42,11 @@ ($input-file = Nil)
         my $fasta = $fasta-name.IO.e
             ?? $fasta-name.IO.slurp
             !! qqx{wget -O - -q "http://www.uniprot.org/uniprot/$id.fasta"};
-        given join '', grep /^ <.alpha>+ $/, $fasta.split: "\n" {
-            if $N-glycosylation {
+        given join '', grep /^ <.alpha>+ $/, $fasta.lines {
+            when $N-glycosylation {
                 say $id;
-                 my @arr = gather for m:overlap/$N-glycosylation/ { take .from + 1}
-                 say "{@arr}"
+                my @arr = gather for m:overlap/$N-glycosylation/ { take .from + 1}
+                say "{@arr}"
             }
         }
     }