in reply to Read Between the Lines

You can use the flip flop operator (see Range Operators): 
while (<>) {
    if (/^\*+$/ ... /^\*+$/) {
        print "Inside: $_";
    }
}

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Read Between the Lines
by rjt (Curate) on Jul 05, 2013 at 00:53 UTC

    I like it. I think the OP didn't want the asterisks themselves printed, so a small addition would clear that up:

        while (<>) {
         print if /^\*+$/ ... /^\*+$/ and not /^\*+$/;
    }

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom