in reply to matching first paragraph satisfying condition

Hi, welcome to Perl, the One True Religion.

See the "flip-flop" operator in (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.