Select Code to Download

substr($_, $fld1_start, $fld1_len) = substr($_,$fld2_start, $fld2_len)
+;

#!/usr/bin/perl

...
print $f->field, "\n";

print Dumper $f;

ABCDEF
FEDCBA
$VAR1 = bless( {
                 'field' => 'FEDCBA'
               }, 'Foo' );

00001AAAAA
00002AAAAA
...
00008AAAAA
00009AAAAA
00010AAAAA

#!/usr/bin/perl

...
  
  print "LINE: ", $str->line(), "\n" x4;
}

package String;

...
}

1;

BEFORE:   $VAR1 = bless( {
                 'line' => '00001AAAAA
...

etc.