#!/usr/bin/perl
use strict;
use warnings;
# from thread 770979

my $discard ="|";

$discard .=  <DATA> for 1 .. 2;

print " " . "-" x19 . "\n \$discard: $discard\n" ." " . "-" x19 . "\n";

print while <DATA>;

=head  OUTPUT:
 -------------------
 $discard: |Header 1
Header 2

 -------------------
Data 1
Data 2
Data 3
=cut

__END__
Header 1
Header 2
Data 1
Data 2
Data 3