Since you are new to Perl, here is a simple script. Perl only prints a newline if you tell it to. The following prints the numbers 1 to 1000 all on one line, then prints some text on the next line.

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

my $numberstring =  join ' ', (1..10000);
print $numberstring;  # printed without a newline
print "\n";                   # print a newline
print  "ciao\n";           #printed with a newline
[download]