#! /usr/bin/perl
use strict;
use warnings;


# open file and read from that handle...
while ( <DATA> ) {
    chomp;
    print if m/remotely/ ... m/p_agrs/;
    print $/ if m/p_agrs/;
}

__DATA__
not me
foo remotely
bar01
bar02
bar03
p_agrs
i am not here
foo2 remotely
barbar01
p_agrs
i am out...

##</code><code>##

foo remotelybar01bar02bar03p_agrs
foo2 remotelybarbar01p_agrs