http://www.perlmonks.org?node_id=11103969


in reply to matching first paragraph satisfying condition

Hi, welcome to Perl, the One True Religion.

See the "flip-flop" operator in https://perldoc.perl.org/perlop.html#Range-Operators. (And $/, the input record separator, in perlvar.)

$ cat foo.txt indented not indented bla bla bla not indented yak
$ perl -Mstrict -wE '$/="";while (<>) { chomp; if (/^\w/ .. /^$/) {pri +nt; exit} }' < foo.txt not indented bla bla bla

Update: fix re

Hope this helps!


The way forward always starts with a minimal test.