$x=readstring();

sub readstring
{
$x <<"EOF";

here is my unquoted 
multiline string

EOF
return $x;
}