Select Code to Download

my $line = 'Text with unusual punctuation<91><91><91>  I<92>m not goin
+g to lie<93> this is odd text<94>';
...
$line =~ s/<93>/,/g;
$line =~ s/<94>/!/g;
# etc.

my $source = 'my_filename.txt';
my $target = 'new_filename.txt'; #THIS FILE WILL BE OVERWRITTEN
...
open TARGET, ">$target" or die "Can't open $target. $!\n";
print TARGET @array;
close TARGET;