http://www.perlmonks.org?node_id=177025


in reply to fastest pattern match

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