in reply to username/password validation

The use of crypt instead of something stronger, subs with ampersands, and "chop" instead of "chomp" makes this code look really old. It looks like Perl 4, am I right?

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
=~y~b-v~a-z~s; print

In Section Seekers of Perl Wisdom