BEFORE:   $VAR1 = bless( {
                 'line' => '00001AAAAA
',
                 'ddl' => {
                            'n' => {
                                     'length' => 1,
                                     'start' => 10
                                   },
                            'a' => {
                                     'length' => 5,
                                     'start' => 0
                                   },
                            'b' => {
                                     'length' => 5,
                                     'start' => 5
                                   }
                          }
               }, 'String' );
SUBSTR: 00001
A: 00001
SUBSTR: AAAAA
B: AAAAA
SUBSTR: AAAAA
SUBSTR: 00001
AFTER:   $VAR1 = bless( {
                 'line' => 'AAAAAAAAAA
',
                 'ddl' => {
                            'n' => {
                                     'length' => 1,
                                     'start' => 10
                                   },
                            'a' => {
                                     'length' => 5,
                                     'start' => 0
                                   },
                            'b' => {
                                     'length' => 5,
                                     'start' => 5
                                   }
                          }
               }, 'String' );
LINE: AAAAAAAAAA

BEFORE:   $VAR1 = bless( {
                 'line' => '00002AAAAA
',
                 'ddl' => {
                            'n' => {
                                     'length' => 1,
                                     'start' => 10
                                   },
                            'a' => {
                                     'length' => 5,
                                     'start' => 0
                                   },
                            'b' => {
                                     'length' => 5,
                                     'start' => 5
                                   }
                          }
               }, 'String' );
SUBSTR: 00002
A: 00002
SUBSTR: AAAAA
B: 00002
SUBSTR: AAAAA
SUBSTR: 00002
AFTER:   $VAR1 = bless( {
                 'line' => '00002AAAAA
',
                 'ddl' => {
                            'n' => {
                                     'length' => 1,
                                     'start' => 10
                                   },
                            'a' => {
                                     'length' => 5,
                                     'start' => 0
                                   },
                            'b' => {
                                     'length' => 5,
                                     'start' => 5
                                   }
                          }
               }, 'String' );
LINE: 00002AAAAA

etc.