in reply to Re: grepping a large file and stopping on first match to a list
in thread grepping a large file and stopping on first match to a list

Thank you.

$_="msh210";$"=$\;@_=@{[split//,uc]}[2,0];$_="@_$\1";$\=$/;++$_[0]for$...1;print lc substr crypt($_,"@_"),1,6

In Section Seekers of Perl Wisdom