Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        }
    }
}

$ cat file1.txt
qwerty
...
qwerty
$ cat file4.txt
qwerty

$ perl cdiff.pl file1.txt file1.txt
ebrine
...
        'ebrine' at line(s): 3
        'snakegod' at line(s): 2
        'tarot' at line(s): 4