HAMM.pl


1
2
3
4
5
6
7
8

#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;

chomp(my $line1 = <>);
chomp(my $line2 = <>);
say length(($line1 ^ $line2) =~ s/\x00//gr);