bug #16 (perl: "<<" (shift left) operator parsed as heredoc) fixed