% my $perl_var1;
<&| items , value => $not_a_perl_var &>
&>
<%init>
# this assumes $lang is a global variable which has been set up earlier.
local $_ = $m->content;
my ($text) = m{<$lang>(.*?)$lang>};
%init>
<%perl>
sub foo2 {
my ($p1, $p2, @p_rest) = @_;
}
%perl>