use Tie::File;

tie my @fl, 'Tie::File', "filename.here"
  or die "ack: $!";

for(@fl) {
  m{^/index} and s/$/%/;
}