use strict;
use warnings;
use feature 'say';

my $var = "Hello";

eval " say '$var' ";

eval { say '$var' };

##</code><code>##

use strict;
use warnings;

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

eval "print '$var";