D:\>perl -MO=Deparse -e "sub MY_CONST(){'bla-bla'};$a=MY_CONST;print MY_CONST;"
sub MY_CONST () {
    'bla-bla';
}
$a = 'bla-bla';
print 'bla-bla';
-e syntax OK