#! /usr/bin/perl

print 'Enter path of file: ';

 chomp($path = <>);

open(FH,"$path") || die "$!\n";

while (<FH>){

 $_=~ tr/a-zA-Z/0-310/;

 print " $_\n";}