Select Code to Download

use strict;
use warnings;
...
        print similarity $lines[$_-1], $lines[$_];
        print "\n";
}

"abc(1) = xyz(0);" == "abc(2) = xyz(1);" ?  0.875
"abc(2) = xyz(1);" == "abc(3) = xyz(2);" ?  0.875
...
"abc(8) = xyz(7);" == "abc(9) = xyz(8);" ?  0.875
"abc(9) = xyz(8);" == "abc(10) = xyz(9);" ?  0.848484848484849
"abc(10) = xyz(9);" == "not similar" ?  0.0714285714285714