#!/usr/bin/perl
# chess.plx
use warnings;
use strict;

use utf8;

my $filename = "thaikjv-fixed.txt";

open my $fIn, '<', $filename or die "Can't open $filename: $!\n";
binmode ($fIn, ":utf8");

while (defined (my $line = <$fIn>)) {
    next if $line !~ /^@(...\d\d\d)/;
    
    my $outname = "$1.html";
    
    open my $fOut, '>', $outname or die "Can't create $outname: $!\n";
    binmode ($fOut, ":utf8");
    print $fOut $line;
    print "hi";
    close $fOut;
}