use Tie::File;

my $file = 'path/to/xml.file';
my @lines = ();

tie(@lines,'Tie::File',$file,autochomp => 0) or die $file.": ".$!;
foreach(@lines){
  $_ =~ s/\r?\n/\n/g;
}
untie @lines;