in reply to Removing Spaces From A File

And borrowing from the above code, TIMTOWTDI:
#!/opt/perl5/bin/perl -w use strict; my($name,$pass); while(<STDIN>){ chomp; my $name=$pass=$_; $pass=~s/\s+//g; $pass=~tr[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz][2223 +3344455566 67778889990022233344455566677788899900]; print"$name\t\t$pass\n"; }
You would call it from the command line like so:
C:\perl trans.pl < sn.txt > pwd.txt