perl: Text Compare

use Text::Diff;

$string1 = "Welcome to chennai";
$string2 = "Welcome to India";


my $diff = diff( \$string1, \$string2, { STYLE => "Context" });

print "$diff";