$_= 'value before localising';
my $thingToAlias =  'the quick brown fox';
{
	local *_= \$thingToAlias;
	s/brown//;
}
print $thingToAlias;
print $_;

##</code><code>##

C:\test>test
the quick  fox
value before localising

C:\test>