my $var;
SLURP: { local $/;
    $var= <>;
}