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

Node 11108370 if anyone's looking for it.

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

In Section Seekers of Perl Wisdom