Re^2: How to campare two variable consist line and print difference

Consider:

my $str1 = "The device doesn't allow writes and that's causing this is
+sue.";
my $str2 = "The device allow writes and that's causing this issue.";
my $str3 = $str1 ^ $str2;

print "Difference found at $+[0]\n" if $str3 =~ /^(\0+)/;
[download]

Perl is the programming world's equivalent of English

Comment on Re^2: How to campare two variable consist line and print difference Download Code