Re: Re: Re: Trubs with HERE docs

[extremely]

Well, if you are assigning the value rather than printing it directly you can do this ugliness:

(my $k= q(
        Blah Blah Blah
        Blah Blah Blah
)) =~ s/^\s+|(?s:\s+$)//gm;

print "<<$k>>\n";

*shame*

--
$you = new YOU;
honk() if $you->love(perl)