#!/usr/bin/perl
#
# Programm druckt eigenen Sourcecode
#
# Idee: Verwende Perls Quotemechanismus q<z>...<z>,
# wobei <z> für ein beliebiges nicht-alphanumerisches Zeichen steht 
# und '...' ein Text ist, der dieses Zeichen nicht enthält.
#
# Wir verwenden minus, plus und stern als Quotezeichen <z>.

$stern=q-*-;
$anfang=q+#!/usr/bin/perl
#
# Programm druckt eigenen Sourcecode
#
# Idee: Verwende Perls Quotemechanismus q<z>...<z>,
# wobei <z> für ein beliebiges nicht-alphanumerisches Zeichen steht 
# und '...' ein Text ist, der dieses Zeichen nicht enthält.
#
# Wir verwenden minus, plus und stern als Quotezeichen <z>.

$stern=q-*-;
$anfang=q+;
$ende=q*;
print $anfang.q-+-.$anfang.q-+;
$ende=q-.$stern.$ende.$stern.$ende;
*;
print $anfang.q-+-.$anfang.q-+;
$ende=q-.$stern.$ende.$stern.$ende;