my $source = 'my_filename.txt';
my $target = 'new_filename.txt'; #THIS FILE WILL BE OVERWRITTEN

open SOURCE, "<$source" or die "Can't open $source. $!\n";
@array = <SOURCE>;
close SOURCE;

s/<91>/./g for @array;
s/<92>/'/g for @array;
s/<93>/,/g for @array;
s/<94>/!/g for @array;

open TARGET, ">$target" or die "Can't open $target. $!\n";
print TARGET @array;
close TARGET;