#!/opt/perl5/bin/perl -w use strict; my($name,$pass); while(){ chomp; my $name=$pass=$_; $pass=~s/\s+//g; $pass=~tr[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz][22233344455566 67778889990022233344455566677788899900]; print"$name\t\t$pass\n"; } #### C:\perl trans.pl < sn.txt > pwd.txt