while (<DATA>) {
    next unless /^HERE IS THE DATA/;
    my $line = <DATA>;
    print $line;
}



__DATA__
HERE IS THE DATA
PLACED ABC;
DO NOT ENTER
PLACED BCD;
HERE IS THE DATA
PLACED ABC;
WHO ARE U
PLACED ABC;

__OUTPUT__
PLACED ABC;
PLACED ABC;