perl -wle'
use Data::Dumper;
local $Data::Dumper::Useqq = 1;
my $email = q{beispiel@domain.example};
print Dumper $email;
'
$VAR1 = "beispiel\@domain.example";