use strict;
use warnings;

package mypkg;
use Carp;

sub BETWEEN {
    carp "left = ", shift;
    carp "right = @_";
};

our $BETWEEN = \≬

2->$BETWEEN(1,3) ;

BETWEEN 2 => 1,3;

#2 BETWEEN (1,3) ;