Fred Flintstone
Barney Rubble
Dino The Dinosaur

##</code><code>##

#!/usr/bin/perl
use warnings ;
use diagnostics ;
use strict ;

open (LIST, "sn.txt") or die "No file exists: $!" ;

open (NEWFILE, '+> C:/Lou/Perl_Scripts/code/perl/pwd.txt') or die "Can't open file; $!" ;
#I am intentionally erasing the file pwd.txt

    my($cname, $name, $pwd);
    while(<LIST>) {
        chomp;
        
        $cname = $name = $_ ;
        $name =~ s/\s//g;
        $name = $pwd = $_ ;
        $pwd =~ tr  [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]
                    [2223334445556667778889990022233344455566677788899900] ;
        
        write NEWFILE ;
        
        }

close LIST or die "Can't close file: $!" ;
close NEWFILE or die "Can't close file: $!" ;

format NEWFILE_TOP =
------    ------    
NAME      PWD
------    ------
.

format NEWFILE =
@<<<<<    @<<<<<
$name,   $pwd
.