Parsing malware files with Raku

parsing-malware-by-terceranexus6.raku

sub MAIN (Str :$fi = '', Str :$fo = '') {
    # some genes in the binary

    my token gen1 {'InterfaceSpeedTester9Calc'}
    my token gen2 {'ScheduledCtrl9UpdateJobERK'}
    my token gen3 {'ScanHardwareInfoPSt'}

    my regex sparkling2 {
        [
           <gen1>|<gen2>|^<gen3>$
        ]
     }

    my $c = 1;
    for "$fo/$fi".IO.lines -> $line {
        if $line ~~ &sparkling2 {say "Sparkling Goblin complex regex found: "; say $line; say "in line $c"; say "in file $fi"; say " "; }
    
    $c++;
  }
}