in reply to What are typeglobs (useful for)?
*xyz = \&X::YY::ZZ::function; [download]
my $string = 'Hi There'; local *_ = \$string; s/\s+/ /g; print $string; __OUTPUT__ Hi There [download]