# File:	stringCompare.pl
#       Compare 2 equal strings of same length. Print position of equal char.
# Author:	Mihaela Malita
$s1 = "aabbcc";	# 2 strings
$s2 = "aXbXcX";
$len = length($s1) ;  # strings have equal length
@A1 = split('',$s1);  # transform string in array
@A2 = split('',$s2);
print "Compare\n$s1\n$s2 \n";
foreach $i (0..$len-1) {  # loop after index
	if (@A1[$i] eq @A2[$i])
		{print 0;}
	else
		{print $i;} 	# print position where chars are equal
}
print "\nAgain written in another way:\n";
for (0..$len) {             # loop after index
	if (@A1[$_] eq @A2[$_])   # uses default variable
		{print 0;}
	else
		{print $_;} 	      # print position where chars are equal
}
exit;