use File::Slurp;
my $data = File::Slurp::read_file('filename');
$data =~ s/\015?\012//g;