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) ;

##</code><code>##

Bareword found where operator expected at d:/Users/lanx/tmp/rewrite_binary.pl line 20, near "2 BETWEEN"
	(Missing operator before BETWEEN?)
syntax error at d:/Users/lanx/tmp/rewrite_binary.pl line 20, near "2 BETWEEN "
Execution of d:/Users/lanx/tmp/rewrite_binary.pl aborted due to compilation errors.