#!/usr/local/bin/perl

open(IN, "sample1.txt");
@PROV		= <IN>;

my $line_count	= int(0);
my @tbody	= ();
my $type	= 'html';
my $text_break	= "______________________________\n";
my $html_break	= "<HR SIZE=1>\n";




foreach $line (@PROV)  {

 
  if ( $line =~ /##HEADER_START##/ )  {
    if ( $type eq 'html'  )  {
      $line       =~ s/##HEADER_START##/$html_break/g;
    } elsif ( $type eq 'text' )  {
      $line       =~ s/##HEADER_START##/$text_break/g;
    }
  }

  if ( $line =~ /##HEADER_END##/ )  {
    if ( $type eq 'html'  )  {
      $line       =~ s/##HEADER_END##/$html_break/g;
    } elsif ( $type eq 'text' )  {
      $line       =~ s/##HEADER_END##/$text_break/g;
    }
  }
 

  push(@tbody, "$line");      
}


foreach $out (@tbody)  {
  print $out;
}