String Perl

$statement = qq/print "Hello.";/;
eval $statement;