Hi,

You are processing a single file (reading and writing in the same file), so please check the input file content in every execution (may be you are reading the blank file) or try link this,

use strict;
use warnings;

open(INFILE, "<perlfile.txt");
my @variable;
my $variable = join("\n", @variable = <INFILE>);
close(INFILE);
open(OUTFILE, ">perlfile_out.txt");
$variable =~ s/0/zero/g ;
$variable =~ s/1/one/g ;
$variable =~ s/2/two/g ;
$variable =~ s/3/three/g ;
$variable =~ s/4/four/g ;
$variable =~ s/5/five/g ;
$variable =~ s/6/six/g ;
$variable =~ s/7/seven/g ;
$variable =~ s/8/eight/g ;
$variable =~ s/9/nine/g ;
print OUTFILE "$variable";
close(OUTFILE);
[download]

Punitha