while ($content =~m/(CALCON((?!CALCON).)*)/smg){ my $entire_match = $1; [download]
In reply to Re^4: nested reg ex over multiple lines by holli in thread nested reg ex over multiple lines by eg8rds