Select Code to Download

open( IN, '<', 'test.txt' ) or die "Couldn't open infile.\n$!";
open( OUT, '>', 'test.out' ) or die "Couldn't open outfile.\n$!";

# after your substitution...
print $_;
print OUT $_;