just bragging

[Luinrandir Hernson]

guess what I found!!! and it works.... (mad scientist laugh)

$password=~tr/A-Z/a-z/;            ##changes everything to lowercase
$password=~tr/a-z0-9/_/c;

instead of 

##$password=~s/@/\_/g;                 ##removes"@"
##$password=~s/\./\_/g;                   ##removes"."