my $str=' "Das ist ein Test" ';
print "Gebe$str"."aus!\n"