Select Code to Download

#Either
local $_ = $$s;

#Or
s//$$s/; #tricky.. ;-)

sub lexer {
   my ($parser) = shift;
...
      return ($key, $1) if $$s =~ $regex;
   }
}