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

M samples/mysample3
M sparkling_goblin.raku

@@ 2,4 2,5 @@ InoauwgdialgfterfaceSpeedTester9Calcregegeaeargku ScheduledCtrl9UpdateJobERKsvza
 DAWFAWRASewfwaf ScanHardwareInfoPStwaara
 InterfaceSpeedTester9CalcInterfaceSpeedTester9Calcdzjvg 
 ScanHardwareInfoPSt
+abcdatvkykv123ajyegxyz
 InterfaceSpeedTester9Calc

@@ 11,6 11,7 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {
     my token func1 {'InterfaceSpeedTester9Calc'}
     my token func2 {'ScheduledCtrl9UpdateJobERK'}
     my token func3 {'ScanHardwareInfoPSt'}
+    
 
     # matching regex 
 


@@ 22,11 23,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;
+    my $c = 1;
     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 "in line $c"; say " "; }
-         $c++;
+         if $line ~~ &sparkling_goblin {say "Sparkling Goblin found: "; say $line; say "in line $c"; say " "; }
+	 $c++;
     }
 
 }