in reply to Re: use strict; before/after use warnings;
in thread use strict; before/after use warnings;

Interesting. Can it, though? Edit to clarify: Was the feeling correct, though?

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

In Section Seekers of Perl Wisdom