#!/usr/bin/perl

$::test = 'Global';
test();

sub test {
  my $test = 'Local';
  my $line = 'test';

  # This returns 'Global'.
  # print ${$line}."\n";

  # This returns 'local'
  # $line =~ s/\w+/${test}/gi;

  # This returns 'Global'
  # $line =~ s/(\w+)/${$1}/gi;

  print "$line..\n";
}