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

print 'Enter path of old file: ';

chomp(my $inPath = <>);
open (inFile, "<", "$inPath") || die "Failed to open in file: $!\n";

print 'Enter path of new file: ';

chomp(my $outPath = <>);
open (outFile, ">", "$outPath") || die "Failed to create out file: $!\n";

while (<inFile>){
  $_=~ tr/a-zA-Z/0-310/;
  print outFile " $_\n";
}

close inFile;
close outFile;