userdiff/perl: tighten BEGIN/END block pattern to reject here-doc delimiters