in reply to Re^3: 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

Ah, I hadn't understood. Thank you.

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

In Section Seekers of Perl Wisdom