#!c:\perl\bin print "Enter in your password. "; $pass1 = <STDIN>; chomp $pass1; print "Re-enter your password. "; $pass2 = <STDIN>; chomp $pass2; if ($pass1 =~ /^$pass2$/i) { print "Your passwords match."; } else { print "Your passwords don't match.";}