Re: Tricky regex problem (updated)

If ~~that~~ (update: oops... I meant to reply to that node) works for you, try this as a simplification (untested):

$input_text =~ s{
    ^ ([#]{2,5}) \s+ [^\n]+ \s+ (?= ^ \1 [^#])
    }
    {}xmsg;
[download]

Beyond that, I have to say I don't understand your requirements. Can you express them more clearly?

Give a man a fish: <%-{-{-{-<

Comment on Re: Tricky regex problem (updated) Select or Download Code

Replies are listed 'Best First'.
Re^2: Tricky regex problem (updated) by nysus (Vicar) on Jul 22, 2020 at 15:47 UTC
All headers that are followed by only whitespace, with the whitespace getting followed by a header with the same or fewer pounds signs as the initial header, should get stripped. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ ~~Curate~~ ~~Priest~~ Vicar"; $nysus = $PM . ' ' . $MCF; Click here if you love Perl Monks	[reply]


The stupid question is the question not asked
	PerlMonks