use strict;
use warnings;

my $var = q(Hello',"\n");

eval "print '$var";