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

$/ = undef;
open IN, shift or die "Failed at opening given file: $!";

$InFile = <IN>;
$Output = $InFile;

$Output =~ s/\n/things/g;
print $Output . "\n";