http://www.perlmonks.org?node_id=110344


in reply to Re: Re: Trubs with HERE docs
in thread Trubs with HERE docs

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";

[download]

*shame*

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

In Section Seekers of Perl Wisdom