malware_analysis
# configuring the genes and the virus (some virus share genes)
my token gene {'this is a malware gene'}
my rule virusx {<gene>.*}
# reading the sample line by line from a binary file
for '/script/mysample'.IO.lines -> $line {
# If the line contains the gene, print it
if $line ~~ &virusx {say "Genes from virus X were found: "; say $line; }
}