print "perl + ruby\n";

$code = '

$unused = q="=;
print qq{perl\n};
$unused = "
print %{ruby\n};
#";

';

eval$code;