#!/usr/bin/perl use warnings; use strict; use vars qw($constantstring); *constantstring=\"immutable"; print $constantstring; $constantstring='no!';