Help for this page

Select Code to Download

Select or download this

use Tie::File;
use Fcntl 'O_RDONLY','O_RDWR';
...
   next unless($file2[$i]=~s/(SEARCHPATTERN)/$1\n$file1/)

}

Select or download this
```
fileA<br>
1
...
h
i
```