my $comment = <<'EOC'; bla bla EOC #### $comment = <<'EOC' if 0; bla bla EOC #### 0 && <<'EOC'; bla bla EOC #### 0 && q{ ... }; #### =for comment bla bla =cut #### # bla bla # bla bla # bla bla