1 files changed, 3 insertions(+), 2 deletions(-)

M sparkling_goblin.raku

@@ 22,10 22,11 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {
 
     # reading the sample line by line from a binary file
 #    my $name = prompt "file name >";
-
+    my $c = 0;
     for "$fo/$fi".IO.lines -> $line {
         # If the line contains the gene, print it
-         if $line ~~ &sparkling_goblin {say "Genes from Sparkling Goblin were found: "; say $line; say " "; }
+         if $line ~~ &sparkling_goblin {say "Genes from Sparkling Goblin were found: "; say $line; say "in line $c"; say " "; }
+         $c++;
     }
 
 }