#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;

open my $fh, "<", "$ARGV[0]" or die "Could not open $!";

my @file = <$fh>;
$/ = "\n+";
chomp (@file);
print "@file\n";