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)