#!/usr/bin/perl -w

use strict;

my @data = ("something", "else\n", "and", "again\n", "hi");
my $result;

for (@data) {
    chomp;
    $result .= $_ . " ";
}

print $result;