package My::Package;
use overload;

sub import { overload::constant qr => \ &convert }
sub convert {
    my $re = shift;
    print "RE=$re\n";
}

1;