#!/bin/env perl
use strict;
use warnings;
use File::Basename;

my $headerSep=$ARGV[0];
my $txtFile=$ARGV[1];
my $fileid =basename($txtFile);
$fileid=~ s/\./-/g;

open(my $fh, '<', $txtFile) or die "Could not open file '$txtFile' $!";
print "\n<pre>";
my $i=1;
while (my $row = <$fh>) {
    chomp $row;
    if ($row =~ /^$headerSep/) {
		print "</pre>\n";
		$row =~ s/$headerSep//g;
		print "<H3 >$row</H3>\n";
		print "<pre>";
		$i++;
		next;
    } 
    print "$row\n" unless $row =~ /^\s*$/;
}
print "</pre>\n";
close $fh;