...
my $previous_line;
while (my $current_line = <DATA>) {
  if ( $current_line =~ /^PLACED/
       && $previous_line =~ /^HERE IS THE DATA$/ ) {
    print $current_line;
  }
  $previous_line = $current_line;
}