#! /opt/third-party/bin/perl

my($data);

open ( FILE, "< inputfile " ) || die "Unable to open file 'inputfile' <$!> \n";
open ( OUTFILE, "> outputfile " ) || die "Unable to open file 'outputfile' <$!> \n";

while ( read(FILE, $data, 1) == 1 ) {
  if( $data eq "\\" ) {
    if( read(FILE, $data, 1) == 1 ) {
      if( $data eq "n" ) {
        print OUTFILE "\n";
        next;
      }
      else {
        print OUTFILE "\\$data";
        next;
      }
    }
    else {
      last;
    }
  }
  print OUTFILE "$data";
}

close (FILE);
close (OUTFILE);

exit 0