Dit is een script dat matched op l33t taal.. Alleen moet je VERANDER DIT nog wel even aanpassen naar het pad van het bestand dat je wilt doorzoeken.. of je programmeerd er zelf even een optie in zodat je het bestand kan opgeven.

#! /usr/local/bin/perl

# deze opent automatisch het bestand opdracht1.txt en zal alle leet woorden vinden.

open (INFILE, "VERANDER DIT");
while (<INFILE>) { $regel++;
if (m/[A-Za-z]\d+[A-Za-z]/gi){
$matchcount++;
print("Er is leet speech gevonden voor de $matchcount e keer gevonden , op regel $regel \n");
}
}

groeten libris