my $x = '";warn q[this is code!] for 1..20;"';