bug #23 (perl: wrong tree after regexes with "s" flag) fixed