I use the quote operators in place of heredocs whenever possible (perlop), because it looks better. This adds a leading newline and trailing whitespace to the string, but when that's not important, I like it.

QqFoo

if ($foo) {
  print qq {
    foo is $foo.
  };
}
[download]