$name = $pwd = $_;      # copy line into $name and $pwd
$pwd =~ s/\s//g;        # remove spaces from $pwd
$pwd =~ tr ....         # transliterate $pwd