#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

open(F, "script.pl") || die "Unable to open: 'script.pl'!\n$!";
my $data = join("",<F>);
close(F);

$data =~ s/[\n\r]/\n/g;

open(F, "> script.pl") || die "Unable to open: 'script.pl'!\n$!";
print F $data;
close(F);