#!/usr/bin/perl

use 5.12.0;
use warnings;

my $test = "\n";
require Data::Dumper; Data::Dumper->import(qw(Dumper));
{
    local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1;
}
say Dumper(\$test);