#!/usr/bin/perl

use strict;
use warnings 'all';

use overload;

BEGIN {
    overload::constant q => sub {$_ [$_ [2] && $_ [2] eq 'q' ? 0 : 1]};
}


print '+ \+ \\+ \\\+', "\n";
print "+ \+ \\+ \\\+", "\n";
 
__END__
+ \+ \\+ \\\+
+ + \+ \+