$ perl -wE'
use Data::Dumper;
local $Data::Dumper::Useqq = 1; # zur sicherheit, um alle nicht druckbaren zeichen auszugeben
my $x = "foo\ bar";
my $y = "foo bar";
say Dumper $x;
say Dumper $y;'
$VAR1 = "foo bar";

$VAR1 = "foo bar";