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

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