Ho implementato una specie di _ereg(i) del PHP in Perl.
Praticamente il programma controlla se in un testo è presente una determinata stringa; inoltre, se alla variabile $caps è assegnato il valore di True, il testo sarà convertito in lettere minuscole e si cercherà normalmente se la stringa compare nel testo 
Ecco il source:
http://blacklight.gotdns.org/cgi-bin/nopaste.pl?mode=view&id=1227022992
