use My::Package;
/<<<$bar>>>/;
# RE=<<<
# RE=>>>


##</code><code>##

package My::Package;
use overload;

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

1;