Thanks!!
But this doesn't seam to be working for me. :(
#!/usr/bin/perl
open FILE, rij1.dat";
my @lines = <FILE>;
foreach my $lin (@lines)
{
my $btw = substr($lin, 15, 0, "1" x 39);
print "$btw";
}
close FILE;
Comment on Re^2: Increaing a field size for a record