#! /usr/bin/perl
$datafile=@ARGV[0];
my $data;
{
  local($/) = undef;
  open (FILE, "<$datafile");
  $data = <FILE>;
  close FILE;
  
  $data =~ s/\x0d\x0a\x7c\x7c/\x7c\x7c/sg;
  
  if ($data =~ m/\x0d\x0a\x7c\x7c/) {
     print "FOUND IT!\n";
  } else {
     print "DIDN'T FIND IT.\n";
  }
  
  open (OUTFILE, ">$datafile");
  print OUTFILE $data, "-Damn";
  close OUTFILE;
}