my $string = '$data = "foo"';
{
    my $data;
    eval $string;
    print $data;
}