while ( my $string = <CIPA> ) {
    my $stmt_tr = substr $string, 126, 10;
        if ( substr( $string, 126, 1 ) == 5 && substr( $string, 98, 8 ) == 20081112 ) {