Select Code to Download

#!/usr/bin/perl -w
use strict;
...

#__prints:
#Nullam quis augue.

$/=undef;
my $data = <DATA>;
...
@text = map{tr/\n/ /;$_}@text;
print join("\n",@text),"\n";
#print join(" ",@text); #alternative to put a space after the period.