#!/usr/bin/perl # Ambiguity!
local *said=*liminal,*where=*liminal;

<DATA>;
is(),?it so?;
"it is",said("he");
"and so it is",said("she");
?which?;
/not here/./not there/./not anywhere/;
not where(); ?which?;
/not this/./not that/./not any/;
"and so it isn't",said("he");
"and so it",not is(),said("she");

sub liminal()
{
    my ($message,@TO,$u);
    @TO=qw(erty);
    is(); @TO=("run this");
}

sub is()
{
}
__DATA__
Have mercy on me...