The _only_ way? Hah. You don't know Perl (yet) ;-).

If you don't like the way Perl interpolates strings, Perl let's you change them.

Abigail

#!/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__
+ \+ \\+ \\\+
+ + \+ \+
[download]