#!/usr/bin/perl

open(FH, $ARGV[0]) || die("Cannot open:$!");

while(<FH>){

           $_ =~ s/\n//xmg;
           print "$_";
}