#!/usr/bin/perl
use strict;
use warnings;
 
print "Ausgabe am Bildschirm soll so auschauen - alles in einer Zeile:\n"; 
my  $cmd = q{cat <<-ENDOFMESSAGE \one \ntwo \nthree \nENDOFMESSAGE};  
print $cmd;
print "\n";
print "Ausgeführt muss es aber dann so werden:\n";
$cmd = qq{cat <<-ENDOFMESSAGE \none \ntwo \nthree \nENDOFMESSAGE};  
print $cmd;

Ausgabe am Bildschirm soll so auschauen - alles in einer Zeile:
cat <<-ENDOFMESSAGE \one \ntwo \nthree \nENDOFMESSAGE
Ausgeführt muss es aber dann so werden:
cat <<-ENDOFMESSAGE 
one 
two 
three 
ENDOFMESSAGE