in reply to fastest pattern match
Just want to note that if this is your actual code:
--
you're opening one file, then closing another...open( FILE, "file" ) || die ("The file not there "); [snip] close(DICTIONARY); # close the file
--
($_='jjjuuusssttt annootthheer pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;
In Section
Seekers of Perl Wisdom