C:\>perl
use warnings;
use strict;
my $zeichenkette = "2345";
print ($zeichenkette);
^Z
2345
C:\>