use strict;
use warnings;


my($data, $input, $output, $newdata);

$input = 'C:\Users\xxx\Documents\input.txt';
$output = 'C:\Users\xxx\Documents\output.txt';

open (INFILE, '<', $input);
open (OUTFILE, '>', $output);

    local $/;
    $data = <INFILE>;


          
    print OUTFILE "$newdata";
              
              
close INFILE;
close OUTFILE