perl -we'
use Data::Dumper;
$Data::Dumper::Useqq = 1;
$line = "datei.txt\n";
print "$line\n";
print Dumper $line;'
datei.txt

$VAR1 = "datei.txt\n";