use warnings;
use strict;

use constant STR   => 'a string';
use constant STREF => \'ref to a string';

print qq{one way '${ \STR }' and another '${ +STREF   }' \n};
print qq{and with another disambiguation '${  STREF() }' \n};

##</code><code>##

c:\@Work\Perl\monks>perl constant_interpolation_1.pl
one way 'a string' and another 'ref to a string'
and with another disambiguation 'ref to a string'