use strict;
use warnings;
use String::Similarity;

my $string;
$string .= "abc($_) = xyz(".($_-1).");\n" for 1..10;
$string .= "not similar\n";

my @lines = split /\n/, $string;
for (1..$#lines) {
		print "\"".$lines[$_-1]."\" == \"".$lines[$_]."\" ?  ";
		print similarity $lines[$_-1], $lines[$_];
		print "\n";
}