- or download this
use Tie::File;
use strict;
...
## We remove those that didn't match by replacing @A with @C :)
@A = @C;
print @A;
- or download this
filea:file2:file1
file2:something:old
- or download this
fileB:file2:file3
filea:file2:file1
...
filea:file2:file1
file2:filex:file23