Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;

...
(substr $file2,0,length $1)=$file1;

print $file2;

Select or download this
```
a
b
c
d
c
x
```