Select Code to Download

  use Devel::Symdump;

...
    my $s = shift;
    return index($s, STRING);
  }

  local(*ENTRY) = $val;

  if ($symtab && !exists $symtab->{$name}) {
      # No typeglob yet, so we can use a reference as space-
...
  } else {
      *$full_name = sub () { $scalar };
  }

  index($s, scalar STRING)