bug #25 (perl: wrong parsing of "return <<HEREDOC") fixed