Help for this page
while (<INFILE>) { my $line = $_;
while (my $line = <INFILE>) {
$juris1 = substr( $line, 99, 1 ); $juris2 = substr( $line, 148, 1 ); ... # #substr( $line, 99, 1, '9' ); # 4th argument replaces #substr( $line, 148, 1, 'Z' );# selected sub-string