*PI = \3.14;

##</code><code>##

    *NAME = \"My name";

##</code><code>##

    *NAME2 = \"My $name";

##</code><code>##

    $bar = 'bar';

    # This prints 'bar'
    *foo = \"The $bar is here";
    $foo = "bar";
    print "$foo\n";

    # This dies
    *foo = \"The bar is here";
    $foo = "bar2";    # error here
    print "$foo\n";