#!/usr/bin/perl

open IN1, $ARGV[0];
open IN2, $ARGV[1];

$errors = 0;

while($p1 = <IN1>) {
  $p2 = <IN2>;
  next if ($p1 =~ /^\?/ || $p2 =~ /^\?/);
  if ($p1 ne $p2) { $errors++; }
}
print $errors . "\n";
