Help for this page

Select Code to Download

Select or download this

open(FILE,"+<tabs.txt") or die "Couldn't open tabs.txt: $!";
my @file = <FILE>; 
...
     print FILE $_;
}
close(FILE);

Select or download this

open(FILE,"+<tabs.txt") or die "Couldn't open tabs.txt: $!";
my @file = <FILE>; 
...
     print FILE "$line\n";
} 
close(FILE);