$str = 'weoij234joi';
$hash = crypt($str, '345oj34i');
$hash =~ s/[^\w]//g;

print "$str $hash\n";

# user enters...

$userchoice = 'weoij234joi';

$hash2 = crypt($userchoice, '345oj34i');
$hash2 =~ s/[^\w]//g;

if ($hash eq $hash2) { print 'Success!'; }
else { print 'Fail...'; }