#!/usr/bin/perl

use strict;
use warnings;
use IO::Handle;

my $file = $ARGV[0];

if (not $file)
{
	print "Please pass the file name as an argument.\n";
	exit(1);
}

if (not -e $file)
{
	print "File: [$file] not found.\n";
	exit(1);
}

my $line_number = 0;
my $this_line   = "";
my $shell_call  = "$file";
open (my $file_handle, "<", "$shell_call") or die "Failed to read: [$file], error: $!\n";
while(<$file_handle>)
{
	chomp;
	my $line = $_;
	if ($line_number == 3)
	{
		$this_line =~ s/ $//g;
		print "$this_line\n";
		$this_line   = "";
		$line_number = 0;
	}
	$this_line .= "$line ";
	$line_number++;
}
close $file_handle;

exit(0);