for (0 .. $#lines1) {
  print $lines1[$_] eq $lines2[$_] ? $lines1[$_] : '*';
}
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg